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The Hellenic Air Force storage/utilization database 
management system (DBMS), utilizes mainframe computers. It 
is a system for large applications, such as big business, 
and it is used only at the Air Force Headquarters level. 
However, the need for an extension of this system, to lower 
levels, has been recognized for a long time. 

This problem can be resolved through the implementation 
of the DBMS programs developed for this thesis, and the 
utilization of DBASE II software applied to microcomputers, 
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I. INTRODUCTION 



An amazing amount of progress has been made in the com- 
puter field since the primitive computer age of the 1950s. 
Personal computers, realistic graphics, high-level languages, 
artificial intelligence, music composition, and many other 
technological advancements have been made in a period of only 
35 years, and new applications are being discovered every day. 
However, a tremendous management problem has been generated 
because of the unpredictability of software development time. 
Several solutions to this problem have been introduced to help 
the software keep up with the more sophisticated hardware. 

In the opinion of the writer, one of the most effective ap 
proaches is to let the "same computer" solve the software prob 
lem, thus causing increased complexity in the computer. Now 
the slogan in the field of computer science is: "Fight the 
complexity with the complexity" [Ref. 1]. That means that we 
should try to load as much as possible into the computer hard- 
ware in order to decrease our working time, since the speed 
and consequently, the efficiency of the hardware on the modern 
computer has been increased to the imaginary level. 

This concept of recursive construction tries to balance 
the software development time and cost, by improving and auto- 
mating the computer process. Starting from a system that 
controls another less complex unit, we create a bigger system 
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to control the previous one and another that controls a bigger 
system to control the previous and another that controls the 
bigger one and so on. Thus the idea is that we can begin 
with a minimum of structure, then provide masses of data and 
wait for the program to solve its own complexities [Ref. 1] . 
Therefore, an individual works only on the understandable 
main menus, by using simple instructions without being engaged 
in the intermediate processes. This progressive aspect of the 
computer has been enforced in the various fields of computer 
science, and this principle has recently found greate applica- 
tion in the design of databases. 

The idea of recording and maintaining information in an 
organized manner appeared many years ago, when the value of 
organized information was realized. The importance of this 
idea is stressed in the Spinoza expression: "The order and 

connection of ideas is the same as the order and connection 
of things" [Ref. 2]. However, the appearance of computers 
started enforcing this idea with the implementation of 
applications on the computer. 

The use of automation and parallelism theories has also 
helped the designers to make retrieval of very large databases 
very easy, and in extremely timely manner. These capabilities 
of the database have recently been appearing on a variety of 
modern database machines some of which are briefly described 
below: 
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1. VERSO (a relational backend machine): it is being de- 
veloped at laboratories and its main feature is a hard- 
ware filter that can process data at the speed of 2 
million characters per second. 

2. SABRE (a relational database system for a multimicro- 
processor machine): it represents several original 
ideas in database design such as the clustering of 
data, multiple views of a database, joint algorithms 
for relations, query evaluation, and integrity control. 

3. Full-Text Information-Retrieval System: can access a 
database of tens of billions of characters in a timely 
manner. This satisfactory response time for interactive 
query formulation and refinement is provided to the 
system by the finite state automaton architecture 
mechanism [Ref. 3]. 

This automation mechanism finds all the combinations of the 
possible movements from one stage to another, keeps track 
of the various paths, and selects the optimum one. The mag- 
nitude of these machines can be captured by the human mind if 
we imagine that it can read an entire newspaper in only milli- 
seconds. This tremendous progress in database design has re- 
sulted in lower cost, and has provided a strong motivation for 
working in the database development field, especially on very 
large databases. 

An additionally strong motivation for working in the data- 
base field is the wide variety of database applications. These 
applications include manufacturing with inventory management, 
the servicing of industries with lists of service capabilities; 
economic models with production data for allocation and plan- 
ning, and medical services with patient records, disease histories, 
problem classification, and treatment effectiveness data [Ref. 

2]. Thus, databases are appearing and supporting almost every 
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science. It might be said that it is the database era in 
computer application. 

An important consideration in the design of the data- 
base is the way of storing data, which is used for a broad 
variety of applications and can be used to make changes to 
the data quickly and easily. The ability of the database 
to be applicable in so broad an aspect of applications is 
based on a common feature that makes database development 
valuable and general in a programming methodology. This 
feature is a creative form which is called "structural growth". 
This "structural growth" should start with a solution on a 
simplified version of the problem and then repeatedly expand 
its capabilities up to the desired level. This feature would 
provide a multiple of "hooks" for the user, ways that the user 
may insert his/her own code to effect behavior of the system 
[Ref. 4]. 

One useful tool that supports this structural development 
is a working model, a prototype, which has recently become 
possible only with the development of more powerful procedural 
based languages. Two other basic tools are the data dictionaries 
and strong modularity. In Chapter IV we will examine the 
capabilities of these tools and we will see how all of these 
tools provide a strong basis for the relational database 
management system (DBMS) development. 

Among these potential applications, the military require- 
ments for economic, medical, battle planning, personnel 
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classification and organization, storage organization, and 
work scheduling information are of primary importance to any 
defense organization. 

Utilizing the advantages of the wide applicability of 
dBASE II, the objective of this thesis is to provide a 
generally useful package for military application, and 
specifically, to meet the requirements of the Hellenic Air 
Force Storage Organization at the lower levels of utiliza- 
tion, and to enable the Hellenic Air Force Material Staff to 
more easily handle the queries of "part demand" by using 
microcomputers . 



11 



II. OVERVIEW OF THE MANAGEMENT SYSTEMS 



A. WHAT IS A DATABASE MANAGEMENT SYSTEM (DBMS)? 

A database management system is a software tool that is 
used to manage and maintain an organization’s database re- 
sources. The database management system does no depend on 
any application program or specific file, but can be used 
to provide data to several application programs [Ref. 5; p. 
335]. A major role of the DBMS is to enable the user to deal 
with the data in abstract terms rather than as the computer 
stores the data. The DBMS allows the user to specify what 
must be done, with little or no involvement in detailed al- 
gorithms, or data representation used by the system [Ref. 6; 
p. 1], DBMS provide a means of easing some of the problems 
of managing data in large-scale management information systems. 
Although the database management system provides facilties 
and great assistance to the user by reducing much of his/her 
potential errors, it is one of the most complex variations of 
software in existence. 

B. INTERACTION OF THE PROGRAMMER/USER WITH THE SYSTEM 

The description of the database is written in a special- 
ized language or Data Definition Language (DDL), and is com- 
piled into tables that exist in the system. Programs that are 
permanently stored in the DBMS which are used to manipulate 
the data are called application programs. A collection of 
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routines that is used to process queries is called a database 
manager. A database manager translates the query into terms 
that the file manager understands. The database manager pre- 
vents the duplication of data by storing everything in a 
single database, it reduces the program development time by 
using many routines, and it improves the reliability of the 
system by automatic integration of information and the rela- 
tionship of information [Ref. 7: p. 14], 

The file manager may be provided by the underlying opera- 
ting system, or may be a specialized file system that contains 
all the information about the storage of the data. The data- 
base manager with the assistance of the file manager, can pro- 
vide rapid access to, and manipulation of the database. The 
database manager usually performs other tasks, such as the 
following : 

1. Security . Gives the ability to the user to protect the 
access of its data from unauthorized persons. 

2. Integrity . Enables the DBMS to check the data whenever 
a user uses a command to insert, delete, or change some 
data . 

3. Synchronization . Provides protection to the DBMS against 
inconsistencies that are caused when two or more approx- 
imately simultaneous operations occur on a data item 
[Ref . 6 : p . 4 ] . 

In figure 2.1 we can see the components that comprise the 
whole system. 

C. LEVELS OF ABSTRACTION IN A DBMS 

A fairly standard viewpoint regarding levels of abstrac- 
tion is the three levels of presentation (views, conceptual 
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Figure 2.1. Schematic Diagram of a Database System 



database, and physical database), which are shown in figure 

2.2 . 

1. The views are an abstract model of a part of the 
conceptual database. A facility for declaring views, called 
a subscheme data definition language, and a facility for 
expressing queries and operations on the views, are called a 
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Figure 2.2. Levels of Abstraction in a Database System 



subscheme data definition language, and a facility for ex- 
pressing queries and operations on the views, are called a 
subscheme data manipulation language. An example of the 
use of the different views could be set, an airline with a 
computerized reservation service system, that is concerned 
only about the flights and passengers. However, another sys- 
tem (view) would be concerned about personnel files or assign 
ment of mechanics to work on specific airplanes [Ref. 6: p. 6] . 
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2. The conceptual database is just an illustration of the 
real world. A DBMS provides a data definition language (DDL) 
to specify the conceptual database. DDL is a high-level 
language that is used to describe the conceptual database in 
regards to a data model . 

3. The physical database is stored permanently on 
secondary storage devices, such as disks and tapes. 



D. BENEFITS OF THE DATABASE MANAGEMENT SYSTEMS 

A database management system can be a complex and expensive 
tool for an organization. The installation of a database man- 
agement system increases substantially the entire data process- J 
ing cost of an organization, since the initial cost may range 
from $10,000 to over $200,000. For that reason an organization 
must compare the overall costs of a DBMS with the benefits to 
be gained from its use. The advantages of DBMS come from: 

1. Improved control. The DBMS improves the control of data 
in numerous ways. Data can be organized and structured 
so that it is suitable for many application systems. In 
addition, control over input and use of the data is im- 
proved. Control is also improved for privacy and security 
of data by using the built-in procedures of the DBMS. 

2. Evolvability . The ability of DBMS to be adjusted to 
meet changes caused by either usage requirements or 
technological improvements. 

3. Service. Service may be improved at a lower total cost 
to an organization because of the more efficient use 

of storage space and substantial reductions in program 
maintenance costs. The reduction of the program main- 
tenance cost is importance since typically more than 
half of the expenses is absorbed by the software systems. 

4. User Benefits. In addition to the previously discussed 
benefits, we can add some others that go directly to 
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the user. Users, by using the different skills from 
the different levels of languages, can interrogate 
the database to "fine-tune" requests. Thus, they 
receive more appropriate information, with less of 
the irrelevant information often associated with some 
types of generated reports. Similarly, through direct 
interrogation, users can find answers to those un- 
anticipated inquireis that play an important role in 
rapidly changing organizational environments [Ref. 5: 
p. 352]. 
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III. BASIC MODELS OF THE DBMS 



There are three basic models of the database management 
system. There are the network, the hierarchical and the 
relational models (figure 3.1). 




Figure 3.1. The Three Database Models 



A. Hierarchical 

A hierarchical model is a special case of the network 
model. A hierarchy structure can use ordering conventions 
for the segments. The characteristic of this model is that 
each descendand (child), has to have, at most, one link with 
the other file. In addition, this link must proceed only 
from ascendand to descendant. Thus the basic operation on a 
hierarchical database is a tree walk; that is, given a node 
(which represents a record of the database) of the database 
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tree, we search all its descendants of this node. The figure 
3.2 shows the hierarchical model of the same organization 
depicted in the network model. 





DEPARTMENT 

NAME MANAGER 

\/ 
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EMPLOYEE 

S 


ITEM 

/ N 


EMPL # NA 


ME ADDR ITEM # NA 


ME PRICE 




MANUFACTURER 
^ \ 


/ 


NAME ADDR M PRICE 





Figure 3.2. A Hierarchical Model 



B. NETWORK 

A network is used when applied structures are more com- 
plex than hierarchies, a special case of the network model. 

The characteristic of the network is that its links are bi- 
directional, allowing us to travel either from many to one or 
from one to many files. The figure 3.3 shows the schematic 
representation of one organization by using the network 
system . 

C. RELATIONAL 

The relational model is quite different in its organiza- 
tional structure. Information is stored in two-dimensional 
files, and the manipulation of its queries uses the relational 
calculus. It uses indexed tables for fast search and 
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retrieval. The uniquely identified attribute of an indexed 
file is called a key, and is represented by underlining the 
attribute showed in figure 3.4. 



DEPARTMENT (DNAME , MANAGER) 
EMPLOYEE (EMP #, NAME, I PRICE) 
ITEM (ITEM #, NAME, I PRICE 

MANUFACTURER (MNAME , ADDR) 



Figure 3.4. A Relational Model 
D. COMPARISON OF THE MODELS 

The relational model is easier to use than the other two 
models, because it provides only one concept, the relation- 
ship, that the programmer must know very well. Further, the 
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network model requires our understanding of both record 
types and links, and their relationships. The implementa- 
tion of "many to many" (linking from many records of one 
file to many records of another file) for more than two 
files provides serious complexity. Similarly, the hierarchi- 
cal model has the same problems as the network has, because 
it requires understanding the use of the pointers. 

From the aspect of efficient implementation, the network 
and hierarchical models clearly win. This happens because 
of the difficulty of the relational model to implement "many 
to many" relationships. Here we should add an intersection 
file (with the fields including at least the keys of the two 
files) , that causes problems and creates complexity on the 
system . 

The last criterion of the model’s evaluation is the 
language that supports each of them. From this aspect we 
note that the relational DBMS requires support by high-level 
languages, while DBMS based on other models have a tendency 
to use languages of a lower-level. The high-level language 
provides a single "data type" for the relationship. In con- 
trast, lower-level languages enable the programmer to use a 
variety of data types. This variation of the data types 
used in the network and hierarchical models provide efficient 
implementation, but require skilled users. 
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IV. TOOLS THAT SUPPORT A DATABASE 



The increasing productivity of systems development, the 
shortening of the response time of the computer, and the 
increasing complexity of computer systems, require effective 
tools that will be capable of processing information. This 
chapter covers advanced tools currently available to meet 
these challenges. In the opinion of the writer, such tools 
as prototyping, data dictionaries, and modularity, are the 
appropriate choices. 

A. PROTOTYPE 

1 . What is Prototyping ? 

Prototyping has proven to be a valuable technique 
throughout the engineering sciences. Its name comes from 
the Greek words "protos=f irst" and "type=model" [Ref. 2: 
p. 26]. It is not a new concept. Software systems are being 
constructed today in much the same way that they have been 
for the past two decades. In some instances, scientists and 
engineers with sophisticated support environments have used 
prototyping as an alternative approach. They realized that 
"pilot systems", are necessary and useful tools which reduce 
the inherent technical risks created with developing new 
software. Prototyping is a hand-crafted version of a final 
production model [Ref. 8: p. 14]. "Prototyping" is also 
defined as: "a perfect example of a particular type" and as 
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"an original or model after which any thing is formed" [Ref 
9: p. 13]. It is a technique which offers the probability 
of delivering a clear, correct, and validated requirement 
statement of the user's need. 

2 . Prototype Life Cycle 

The development steps that a system should follow, 
when using a traditional management information system ap- 
proach, are shown in figure 4.1, and the development steps 
of a system using the prototyping techniques are shown in 
figure 4.2. 



Feasibility 

Requirements 

Preliminary Design 

Detailed Design 

Integration 

Implementation 

Operations and Maintenance 

Figure 4.1. Traditional Life Cycle Technique 
The figure show that the only difference from the 
traditional technique is in the requirement steps, which ap- 
pears in the prototype technique [Ref. 10: p. 163]. On the 
substeps of the prototyping development, we can see that the 
key-mechanism of the structure is the iteration process. The 
iteration process gives us a high-degree of confidence in the 
design quality and completeness of the design [Ref. 11: p. 25]. 
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Feas ibility 
Requirement s 
Preliminary Design 



1. Identify basic needs 

2. Develop working model 

3. Demo in context 

4. Implement revisions 

5. Is prototyping done? 



Detailed Design 



If Yes, go on to 



Integration 



detailed design 
Else, go back to 



Preliminary Design 



Implementation 
Operation and Maintenance 



Figure 4.2. Prototype Life Cycle Technique 
3 . Advantages of a Prototype 

The main benefit of prototyping is its ability to 
bridge the communication barriers in the development process. 
This feature enables the prototyping to create a dialogue 
between human and machine, allowing the user to make minor 
changes quickly. In addition to this benefit, the prototyping 
approach has numerous other advantages during the development 
of a system, such as: 

- Prototyping technique is usually faster than traditional 
methods . 

- It permits assessment of the impact of the system on the 
entire user environment. 

- It permits early testing of the human/machine interface. 

- It provides a medium for validating requirements. 

- It requires fewer programmers. 

- It reduces the life cycle costs by reducing the maintenance 
cost . 

- It is developed with correctness in mind [Ref. 2: p. 26]. 
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4 . Prototyping Limitations 

In spite of the numerous advantages of prototyping, 
it does have limitations. The major limitations are: 

- Prototypes are not developed with efficiency in mind 
[Ref. 2: p. 26]. (This is caused by the decrease in 
software development time and the use of fewer 
programmers ) . 

- Prototyping does not necessarily result in shorter devel 
opment time. 

- It is possible for a programmer to leave out some major 
part of a system during the development phase. 

- Because of extensive use of the iteration process, time 
estimating procedures are difficult. 

- Prototyping is not appropriate for all types of 
applications . 

Although these limitations seem to degrade the value 
of prototyping, it is clear that most of these problems can 
be solved as more experience is gained. 

5 . Prototyping Applicability 

The greatest potential advantages of prototyping 
appear on large systems development. Algorithm based prob- 
lems do not create an appropriate environment for fast itera 
tion. On the other hand, on-line transaction processing 
based applications work perfectly by using the prototyping 
technique. Prototyping can also be used as a basis for 
bottom-up integration. It can do an evaluation of update 
and retrieval efficiency, and can be used to simplify the 
implementation and acceptance of a new system. 

Prototyping can also be used to improve the physical 
database design. In order to understand this improvement, 



25 



we can think of the relational database as a "pilot model" 
which is the structure of the database file, and then the 
iteration feature of the prototyping will be applied 
sequentially on all records of the same file. 

However, in addition to the assistance that is pro- 
vided by prototyping in the database software development 
design, the data dictionary tool should also be available 
for use. 

B. DATA DICTIONARIES 

A data dictionary is used for the definition and the 
recording of the data elements, and the handling of the 
logic representations such as decision tables, and structural 
English. It is a document that provides details of each 
data file that is described [Ref. 12: p. 186]. 

A typical data dictionary entry is presented in figure 
4.3 [Ref. 13: p. 126]. It should include the name of the 
data item, where it is used, its purpose, where it is de- 
rived from, its subordinate systems, and any other appro- 
priate notes. 

We can see that the relations are composed from fields 
of the data records. These fields are called domains of the 
relation. For example, the record "ORDER" has seven fields 
as in figure 4.3. ORDER ("customer- identity , order-date, 
catalog-number, item-name, unit-price, quantity, total-cost). 
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DATA FLOW: ORDER 


DATA STORE: ORDER- DATE 


COMPOSITION: 


COMPOSITION 


CUSTOMER- IDENTITY 


TIME 


ORDER- DATE 


DAY 


ITEM-ORDERED 


MONTH 


CATALOG -NUMBER 
ITEM-NAME 
UNIT PRICE 
QUANTITY 
TOTAL- COST 


YEAR 



Figure 4.3. Example of Data Dictionary 



The value of dictionaries to the maintenance staff of a 
system are obvious. Much of the information conventionally 
gathered by cross reference programs can be entered into the 
dictionary, and when a program object is to be changed, 
reference to the dictionary should be made to ensure the 
changes are accepted by the system [Ref. 12: p. 187]. 

Since the data dictionary can define attributes of the 
data, and relationship among them, it can be utilized as a 
source of information that is needed by prototyping. 

A data dictionary may also contain the output of proto- 
typing in an organized database, and generally should be the 
main factor to integrate all the conceptual output that is 
produced by the tools that are being used [Ref. 14: p. 250]. 

C. MODULARITY 

Modulus always refers to parts that can be put together 
to make a complete system. We can think of the modulus as a 



27 



work assignment given to a programmer or group of program- 
mers in order to construct a complete system by putting 
their assignments together. The use of modulus and sub- 
systems provide a powerful abstraction mechanism, since the 
parts of the whole system can be compiled separately, they 
can use their libraries, and they can link the library units 
into the object code. Systems with strong modularity consist 
of sell-defined manageable units, and with well-defined inter- 
faces among the units. For well designed systems, the modular- 
ization criteria should have the following characteristics: 

1. Modules which contain instructions, processing logic, 
and data structures 

2. Modules which can be separately compiled ans stored 

3. Modules which can be included in a program 

4. Modules which can utilize other modules [Ref. 13: p. 

147] . 

All of these characteristics make the modularity power- 
ful and very useful throughout the computer sciences, and 
provides effective solutions, especially in the large and 
complex programs. 

In the relational database, modularity can be used to 
integrate the developed structure of the system in order to 
be more understandable and easier to handle by the user. 

Examples of modules include procedures, subroutines, and 
functions. Modularization permits the designer to separate 
a system into functional units, to establish the hierarchical 
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feature of the ordering, to implement data abstractions, and 
to develop software by using subsystems [Ref. 13: p. 147]. 
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V. OVERVIEW OF MICROCOMPUTERS 






A. INTRODUCTION 

In general , by the term "microcomputer" we mean a stored 
computer program comprising memory and input/output circuits 
together with a microprocessor (CPU), residing on one or more 
chips. Microcomputers are a recent technology and are ac- 
cepted by many people because they provide several advantages 
as compared to the larger computers. First of all, micro- 
computers are not as expensive as the mainframe, and can be 
very helpful for many people for personal use. Second, micro- 
computers are powerful, reliable, and can be used for a wider 
range of specific applications. Third, they are acceptable 
to any environment and can replace the older computers, which 
require additional funding for maintenance personnel and 
special facilities (air conditioned rooms and large spaces). 
However, the limited access speed and the limited storage 
capabilities are the major disadvantages of microcomputers 
[Ref. 15: p. 11]. 

B. PROBLEMS AND CHARACTERISTICS OF THE MICROCOMPUTER- BASED DBMS 

The use of a database management system (DBMS) in the 

microcomputer environment is a relatively new orientation. 
Recently many DBMS packages have been tailored for the micro- 
computer. They have become very attractive to the user 
because of the high cost of the larger computers and the 
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requirement of less memory storage for the smaller systems. 

In spite of the fact that the new packages were developed 
independently of the mainframe DBMS, they still have similar 
characteristics and problems, such as: 

1. Concurrency control. The special problems which take 
place when a database is accessed by many users . For 
example, when two users simultanteously lock and access 
two records, and then they both attempt to lock the 
second one which is locked. This problem (deadlock) 
disappears when the record is unlocked. DBASE II does 
not use any mechanism to enforce concurrency. 

2. Transportability. This issue is focussed on two levels. 
Portability of application programs and DBMS in high- 
level language and portability of DBMS machine. DBASE 
II is offered on CP/M and compatible systems. Since 

it is interpreted at run time, only the interpreter is 
modified to run on other systems. The language of DBASE 
II remains the same. 

3. Integrity and consistancy. The ability of the DBMS to 
determine if the entered data is appropriate and valid 
for further processing. DBASE II has rather limited 
consistancy checks and it does not provide a range 
limit on all insertions. 

4. Security. This important feature should concentrate on 
several things. The prevention of unauthorized access 
and modification to data in secondary storage; the pre- 
vention of unauthorized access and modification to data 
when the DBMS is in use; and a provision of selective 
security to control access to the individual fields of 
a record. DBASE II does not provide any explicit 
security. We could use a password protection by creat- 
ing a specific command file, but this protrection could 
be by-passed by reading directly to the command files. 

5. Crash protection and recovery. The ability of the sys- 
tem to recover in case of a hardware failure. Typical 
problems which take place are disk damage, temporary 
power failure, and transients in the power supply which 
cause data in memory to be mixed, etc. DBASE II has no 
special functions to protect the system from damage 
caused by the hardware. The only protective operations 
are the echoing of the operations and transactions to 
the printer or a disk. Consequently a backup copy is 
the best way of recovering from such problems. 
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C. DBASE II CONCEPTS 



DBASE II is a relational DBMS. However, since the re- 
lationship of the different files of the same application 
is not stored in the system, we can not say strictly that it 
is a true DBMS. The main advantage of DBASE II is that it 
provides simplicity in application programming. This means, 
it can be easily used by programmers with a minimum of ex- 
perience. DBASE II can be applied to the financial, manu- 
facturing, home, and business fields. Some typical applications 
include : 

* General ledger, accounts receivable, accounts payable, 
payroll, job costing, and legal office accounting. 

* Inventory control, purchase order systems, project manage- 
ment, time scheduling, materials requirement planning, 
invoicing systems, and order entry systems 

* Stock portfolio management, games, simulations, nutritional 
analysis, tape and record collection management, coupon 
exchange management, recipe file control, home budget 
analysis, and tax computation 

* Real estate management, mailing list management, ticket 
ordering system, time billing, and personalized mass 
mailings . 

Some of the features of DBASE II are: 

* A large degree of program and data independence. Data 
structures can be altered without the necessity of many 
program changes 

* Data can easily be added, edited, deleted, sorted, indexed, 
or reported using a minimum of programming. 

* Reports can easily be created from data in a database 
using mathematical operations like multiplication and 
division. Subtotals and totals can be easily generated. 

* Professional screen formats can be created for data entry. 
You design the entire screen, and data entry only requires 
the operator to "fill in the blanks." 
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* The internal language is extemely powerful with single 
commands for indexing, sorting, and reporting. Often 
programs can be developed at five or ten times the speed 
of developing equivalent BASIC programs. 

* The internal language is a structured language, and its 
programs are far easier to write and update than un- 
structured programs [Ref. 7: p. 12]. 
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VI. APPLICATION OF DATABASE DEVELOPMENT 



This chapter describes the steps taken to develop the 
Hellenic Air Force Storage/Utilization database management 
system, and provides the course application programs to 
support the needs of the user. Example reports are also 
included to demonstrate how this database can be used to 
provide better communications and user satisfaction. 

The phases that comprise this development are: the 
analysis phase, design phase, and the implementation phase. 

A. ANALYSIS PHASE 

1 . Introduction 

The analysis phase of software development involves 
requirement specifications that state the "what" of the 
software without implying the "how." The "how" specifica- 
tion concerns software design and will be examined in the 
design phase section. 

In reference to this thesis, the demands of the 
Hellenic Air Force Storage System (HAFSS) must be specified 
and the objective requirements for the system that is being 
developed must be analyzed. 

2 . System Objectives 

The wide variety of models of same-purpose weapons, 
the different types of airplanes, the different measuring 
systems, the different kinds of airplane parts, and the 
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large number of users that manipulate these parts, has 
recently created a major problem for the Hellenic Air 
Force Storage/Utilization System. Actually the solution 
of this problem is becoming more complex as the demands for 
more effective and more complex weapons systems emerge. 

As a partial solution to this problem, computerization 
was introduced on an Air Force level basis in recent years. 

It is the intention of this thesis to suggest an expansion 
of this system, down to the Air-base level, in an attempt 
to increase efficiency in the handling of airplane parts. 

As a facet of this expansion to the base level utiliza- 
tion, microcomputers are strongly suggested by this thesis 
for reasons which were described in Chapter V. Their utiliza- 
tion on sequentially lower levels of the organization will 
revolutionize the current process of stores accounting, and 
provide the necessary measures of economy of manpower, ensur- 
ing that sufficient stocks are maintained in a timely fashion. 
In this utilization, (and due to the limited storage capacity 
of microcomputers) , care must be taken to store only that 
data which is pertinent to the tasks required. The kind of 
output that must be retrieved from the system vary, and de- 
pend on several factors. To meet the demands of the Hellenic 
Air Force Storage/Utilization System, the application software 
developed from this study, is based on the appropriate inputs 
and is directed by the following necessary outputs. 
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INPUT 



OUTPUT 



PART NUMBER 
PART -NUMBER, DATE 
USER-NAME, DATE 

PART -NUMBER, DATE 

SUPPLIER-NAME, COST 
PART -NUMBER 

PART- NUMBER, QUANTITY 

INVOICE-NUMBER, 

PART -NUMBER 

PART- NUMBER, DATE, COST 

The question remains as to 
ives. The "how" is answered in 
t ion's development. 



WHERE CAN WE FIND A SPECIFIC 
PART? 

HOW MANY PARTS WERE ORDERED IN 
A SPECIFIC TIME PERIOD? 

WHO ORDERED THE PART AND WHEN 
WAS IT ORDERED? 

WHICH PARTS DO WE NEED TO REORDER 

WHICH SUPPLIER IS PREFERRED FOR 
BUYING A SPECIFIC PART? 

WHAT IS THE REQUIRED QUANTITY 
OF A SPECIFIC PART? 

BY WHICH INVOICE NUMBER WAS A 
SPECIFIC PART TAKEN? 

WHAT WAS THE COST FOR A SPECIFIC 
PART IN A SPECIFIC • PERIOD? 

"how" to implement these object- 

the design phase of the applica 



B. DESIGN PHASE 

According to Webster, the process of design involves "con- 
ceiving and planning out in the mind" and "making a drawing, 
pattern, or sketch of" [Ref. 13: p. 137]. In software design, 
we have two separate kinds of activities. The external design 
is concerned with refining the software requirements and estab- 
lishing a bird's eye view of the structure of the system and 
the internal design is concerned with the internal structure 
of the system and the processing details. Design is 
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the connection between requirements and an implementation 
that satisfies those requirements, and is the "how" of the 
software products. 

The database system of this thesis organizes the data 
into files, and the data stream is accomplished by the com- 
mand programs of the system. The use of menus and submenus 
is an ideal way to establish the top-down design were atten- 
tion is first focused on global aspects of the overall sys- 
tem, and then is decomposed into subsystems where more con- 
sideration is given to it. 

Figure 6.1 illustrates the organization of the main menu 
and submenus of the system (by capital letters), and their 
programs (lower case letters) . 



SECURITY PROGRAM 
entry 

I 

MAIN MENU 



ADDMENU 

I 

adpart 

adarstr 

adwstr 

adsuplr 

ad j str 

adacstr 

adorder 

adusage 



DELMENU 

depart 

dearstr 

dewstr 

desuplr 

de j str 

deacstr 

deorder 

deusage 



MODIMENU 

mopart 

moarstr 

mowstr 

mosupl 



REPOMENU 

repart 

resuplr 

reorder 

reusage 

rearstr 

rewstr 

reacstr 



QUERMENU 

quel 

que2 

que3 

que4 



Figure 6.1. Organization of the Database Programs 
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FIELDS OF THE DATA FILES OF THE AIRPLANE PARTS SYSTEM 
PARTS 



PNO 


DESC 


ARPLT 


SUPLRNA 


ARSTRNA 


WSTRNA 


JUN A 


ACSTRNA 


QOH 


COST 























SUPPLIERS 



SUPLRNA 


SUPLRADR 


ZIP 

CO 


COUNTRY 


ARPLT 


DELIV 

TIME 


PRODUC 













ORDERS 



ORDNO 


DATE 


PNO 


DESC 


ORDNA 


SUPLRNA 


QNT 


COST 



□SAGE 



INVNO 


DATE 


PNO 


DESC 


UNAME 


UADDR 


QNT 


COST 



AR STORES 



ARSTRNA 


PNO 


DESC 


ASLFNO 


ARPLT 


QNT 


COST 



WSTORES 



WSTRNA 


PNO 


DESC 


WSLFNO 


ARPLT 


QNT 


COST 



JUN STORES 



JUNA 


PNO 


DESC 


JSLFNO 


QOH 


COST 



ACSTORES 



ACSTRNA 


PNO 


DESC 


ACSLFNO 


ARPLT 


QOH 


COST 



Figure 6.2. Organization of the Files 
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The figure 6.2 shows the structure of the files of the 
system that are constructed according to the specific demands 
of this system. Also, a hierarchical style representation 
of the files is illustrated in the figure 6.3. Meaning of 
the names in figure 6.2 follows: 



PNO = Part Number 


DESC = Description 


SUPLRNA = Supplier Name 


ARSTRNA = Stores of Airpl 
Parts 


WSTRNA = Weapon Stores 


JUNA = Junk Stores 


ACSTRNA = Accessories 
Stores 


QOH = Quantity On Hand 


COST = Cost 


SUPLRADR = Supplier Address 


ZIP CO = Zip Code 


COUNTRY = Country 


DELIV TIME = Delivery Time 


ORDNO = Number of the Order 


DATE = Date 


ORDNA = Name of the Orderer 


INVNO = Number of the 
Invoice 


UNAME = Name of the User 


ASLFNO = Airpl Store Shelf 
Number 


WSLFNO = Weapon Store Shelf 
Number 


JSLFNO = Junk Shelf Number 


ACSLFNO = Accessories Shelf 
Number 



The requirements of the analysis phase that have been dis- 
cussed in the preceeding section, are satisfied by using the 
above files, and by using the information stored in the fields 
of those files. All the necessary operations will be performed 
under the program's control. For example, in order to satis- 
fy the first question of the analysis phase, "where can we 
find a specific part" (with part # 222222), we have to use 
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the indexed "parts" file with the key "PNO" , and go through 
it until we find the record with the number 222222. Further- 
more we can obtain the information on where this part is 
stored, including its location, the shelf number on which 
this part has been stored, and the quantity-on-hand. 




Figure 6.3. File Organization in Hierarchical View 



C. IMPLEMENTATION PHASE 

This section describes the implementation of the data- 
base system of this thesis, by using the relational DBMS, 
DBASE II. Generally, in the operational environment, the 
DBMS provides several functions to carry out the implementa- 
tion of the application programs. However, although the 
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principal function of the DBMS is to store, retrieve, and 
modify data, the DBMS provides other important functions 
as listed below: 

1. Store, retrieve, and update data 

2. Provide integrity services to enforce database 
constrains 

3. Provide a user-accessible catalog of data description 

4. Control concurrent processing 

5. Support logical transactions 

6. Recover from failure 

7. Provide security facilities 

8. Interface with communications control programs 

9. Provide utility services [Ref. 18: p. 408]. 

Ideally, for a product to be a relational DBMS, it must 
be a full -capability DBMS, plus it must process data as re- 
lations. In practice, no relational DBMS product concurrently 
provides all of the nine functions. 

The basic characteristics that a DBMS must have to be 
considered as a relational model, are tables that define 
data and are processed by SELECT, PROJECT, and unrestricted 
JOIN operations. DBASE II substitutes the principle rela- 
tional DBMS commands with the following ones: 



FOR" for SELECT 


"JOIN" for 


JOIN 


GET" for RETRIEVE 


"COPY" for 


PROJECTION 


UPDATE" for UPDATE 


"FIND" for 


FIND 


STORE" for STORE 


"CREATE" for CREATE 
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Appendix A of this thesis contains the listings of the 
application programs that has been developed by handling 
these DBASE II commands. 

The organization of these application programs include: 
addition, deletion, modification, reports, and queries. 
Furthermore, each of these operations is applied to each of 
the database files of the Airplane's Part System. 

1 . Addition Operations 

The addition operations are applied to all of the 
files of the system, and their purpose is to add new data 
to the appropriate file. The addition is accomplished inter- 
actively by program control through the use of menus. 

The addition process starts by asking the user to 
enter the specific data (part, user of the part, ordered 
part, etc), by filling some blanks on the screen with 
characters or numbers. Then the new data is stored into 
computer memory, displayed on the screen for verification by 
the user, and then copied into an appended blank record. In 
case of the part addition, entries are added to the part 
(master) file, plus the appropriate file. For example, a 
weapon part is stored into weapons data. 

2 . Deletion Operations 

Deletion operations like addition operations are 
applied to all the files of the system, and are very fast 
operations. These operations enable the user to delete data 
from the appropriate file interactively. The process starts 
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by asking the user to fill some blanks of the screen, in 
order to define the specific data that is going to be 
deleted. The program then, takes this input, uses the 
indexed file, finds the data of the specific record, dis- 
plays all the record data to the screen for an additional check 
by the user, and ask him/her again if he/she desires to 
delete this record. In the case of deletion operations from 
the part file, the specific part is deleted from the part 
(master) file, and from the appropriate file. 

3 . Modification Operations 

The purpose of the modification operations is to 
allow the user to change the data of a specific record. 

This process starts by asking the user to input through the 
screen the specific data that he/she is interested in modi- 
fying. Then this entry by the use of the indexed file 
locates the appropriate record, and displays its data on 
the screen enabling the user to modify the desired data. The 
new entries change the appropriate record on the part (master) 
file, and the affected file that keeps the specific data. 

4 . Report Operations 

The report operations enable the system to report the 
current parts of the airplane stores. The menu driven capabil- 
ity helps the user to get a report for any store he/she de- 
sires. In addition to store reports, the reports for the 
airplane stores include a submenu in order to provide to the 
user partial report for a specific kind of parts. For 
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example, in the airplane-part store, the user can take 
(printed or displayed) reports of the part for the Fighter 
F-4 . 

5 . Query Operations 

The purpose of the query operations is to allow the 
user to ask the most important questions that could retrieve 
from the system. Since the number of the queries can be too 
large, a good cooperation between the designer and the user 
is a must in order to design the system to operate only on 
the appropriate aspect according to the needs. 
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VII. CONCLUSION 



The increased demands of the Hellenic Air Force Storage/ 
Utilization Airplane Parts, created the need of decentra- 
lication of the database management system which is based on 
the use of mainframe computers, and performed at the Air 
Force Headquarters Level. 

This thesis developes a database application package 
which utilizes a DBASE II database management system, and 
a microcomuter environment for implementation at the Air- 
Base Level. The establishment of this system will relieve 
the current system from being overloaded, and provide greater 
economy, better control of stocks by the Air-Base Commander, 
more efficient part utilization, and more efficient "on time" 
orders . 
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APPENDIX A 



********************** Entry, prg ************************* 



* AUTHOH 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS HARALABOS 
9-3-85 

THIS PROGRAM PROTECTS THE SYSTEM FROM 
UNAUTHORIZED ACCESS 



******* **** ** *************** ********** ************* **** * * 



SET ESCAPE OFF 
STORE t TO flag 
* Create a continue loop 
DO WHILE t 
ERASE 

SET DEFAULT TO b: 

SET COLOR TO 30, 14 
a 1,30 SAY DATE() 

STORE ' • TO mpassword 

a) 4,10 SAY "ENTER TO THE DBASE, BY WRITING THE CORRECT 
a 4, 1 2 SAY "PASSWORD" 
a 12,3 SAY ’ENTER A BLANK TO EXIT ’ 
a 23,3 SAY * ENTER THE PASSWORD • 

SET CONSOLE OFF 
ACCEPT TO mpassword 
SET CONSOLE ON 
READ 

IF $ (mpassword , 1 , 1 ) = ' * 

CANCEL 

ENDIF $ (mpassword, 1, 1 ) = * ' 

IF mpassword = "GREEK" .OR. mpassword = "GOODS" 
ERASE 

SET TALK OFF 

SET COLOR TO 20,10 

3 5,27 SAY ’WELCOME TO THE SYSTEM' 
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SET COLOB TO 30,14 

3 8, 10 SAY ' THIS SYSTEM ALLOWS THE USES TO IMPROVE 

2 10,10 SAY • THE PERFORMANCE OF THE S TO RAGE/ UTIL IZA- 

3 12,10 SAY • TION OF THE AIRPLANE PARTS. IT IS A 

3 14,10 SAY » COMPLETELY MENU DRIVEN SYSTEM, AND THE 
3 1 ,10 SAY • USER JUST FOLLOW THE INSTRUCTIONS » 

SET COLOR TO 112,30 

a 23,20 SAY CH R (7 ) + " PRESS ANY KEY TO CONTINUE " 

SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 
ERASE 

SET COLOR TO 112, 14 
DO menu 
ELS E 

ERASE 

SET COLOR TO 112, 140 

3 8,15 SAY CHfi (7) + "TR Y AGAIN PLEASE. THIS IS NOT THE 
3 8,17 SAY " CORRECT PASSWORD » 
a 8,67 SAY CHR (002) 

SET TALK OFF 
STORE 1 TO Z 
CO WHILE z<10 

a 8 ,75 SAY CHR (7) 

STORE z+1 TO z 
ENDDO WHILE z<10 
SET COLOR TO 30,14 
END IF 

ENDDO WHILE t 



******* ***** ********** Menu, prg ************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



: KONDYLOPOULOS HARALABOS 
: 9-12-85 

: THIS PROGRAM SELECTS THE DESIRED OPERATION ON 

: THE SYSTEM BY USING USING MENU DRIVEN CHOICE 
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****** * **** * *** ****** * *** ************* ***************** **** 



SET ESCAPE OFF 
SELECT PRIMARY 
SET COLOR TO 3 0,10 
SET FORMAT TO SCREEN 
SET CONSOLE ON 
SET PRINT OFF 



* Create a continue loop 
DO WHILE t 

CLEAR 

ERASE 

S 1,15 SAY " ***' AIRPLANE' PART SYSTEM ' ***" 
5) 3 , 1 SAY ' MAI N MENU ' 

S 3,60 SAY DATE() 

3 7 , 1 SAY ' OPTIONS: ' 



a) 9 , 1 SAY ' 
d 1 1 , 1 SAY ' 
a 13,1 SAY • 
a 15,1 SAY ' 
a 9 , 4 5 SAY • 

3 1 1 , 45 SA Y • 
3 13,45 SAY ' 
a 20,1 SAY ' 



0 EXIT TO OPERATING SYSTEM* 

1 ADDITION OPERATIONS' 

2 DELETION OPERATIONS' 

3 MODIFICATION OPERATIONS' 

4 REPORT OPERATIONS' 

5 QUERIES ' 

6 EXIT TO DBASE' 

SELECT CHOICE ' 



STORE ' ' TO choice 

WAIT TO choice 



DO CASE 

CASE choice = 'O' 

CLEAR 

QUIT 

CAS E choice = ' 1 ' 

DO addmenu 
USE 

CASE choice = '2' 

DO delmenu 
USE 
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CASE choice = '3' 
DO modimenu 
USE 

CAS E choice = '4 ' 
DO repomenu 
USE 

CASE choice = *5’ 



DO quemenu 
USE 

CASE choice = '5 ’ 

CANCEL 

OTHERWISE 

STORE 1 TO z 
DO WHILE z<5 

3 30,5 SAY "INVALID CHOICE.. PLEASE TRY AS AIN 
2 31, 5 SAY CHR (7) 

STORE Z+1 TO Z 
ENDDO 
ENDCASE 
ENDDO WHILE t 



*************** Addmenu. prg ****************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 

* 



KO NDYLCPOULOS HARALAEOS 
10-6-85 

THIS PROGRAM SELECTS THE REQUIRED ADDITION 
OPERATION OF THE SYSTEM BY USING MENU DRIVEN 
CHOICE 



********************************************************* 



SET ESCAPE OFF 
SELECT PRIMARY 
SET COLOR TO 20 , 5 
SET TALK OFF 
SET FORMAT TO SCREEN 
SET CONSOLE ON 



* Create a continue loop 
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DO WHILE t 



CLEAR 

ERASE 



a) 


i. 


15 


SAY "*** • 


AIRPLANE’ 


PARTS SYSTEM •***" 


3 


3, 


1 SAY 'ADDMENU' 






d> 


3 / 


60 


SAY DATE() 








a) 


7, 


1 S 


AY ’ OPTIONS: ’ 






a) 


9, 


1 SAY • 0 


EXIT TO OPERATING SYSTEM' 


a 


1 1 


, 1 


SAY ' 


1 ADDITION 


OF 


PARTS' 


3 


13 


,1 


SAY • 


2 ADDITION 


OF 


AIRP L_S TORES' 


3 


1 5 


, 1 


SAY » 


3 ADDITION 


OF 


WEAPON_S TORES' 


a 


1 7 


, 1 


SAY * 


4 ADDITION 


OF 


JUNK_STO RES' 


a 


1 9 


, 1 


SAY ’ 


5 ADDITION 


OF 


ACES SO R_S TORES' 


a 


9, 


45 


SAY ’ 


6 ADDITION 


OF 


SUPPLIERS ' 


a 


1 1 


,45 


SAY » 


7 ADDITION OF 


' INVOICES' 


a 


13 


,45 


SAY * 


8 ADDITION OE 


r ORDERS • 


a 


1 5 


,45 


SAY * 


9 EXIT TO 


DBASE’ 


a 


1 7 


,45 


SAY ’ 


X EXIT TO 


MAIN MENU' 


a 


20 


, 1 


SAY ' SELECT CHOICE 


t 





STORE * ' TO choice 

WAIT TO choice 

DO CASE 

* Execution of the appropriate program 

CASE choice = ’3' 

CLEAR 

QUIT 

CAS E choice = ' 1 ' 

DO adpart 
USE 

CASE choice = '2 ' 

DO adarstr 
USE 

CASE choice = '3* 

DO adwstr 
USE 
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CASE choice = • 

DO adjstr 
USE 

CASE choice = '5' 
DO adacstr 



USE 

CASE choice = 'S' 
DO adsuplr 
USE 

CASE choice = *7* 
DO adusage 
USE 

CASE choice = '8' 
DO adorder 



USE 

CASE choice = '9* 

CANCEL 

CASE choice = 'X' .OR. choice 
RETURN 
USE 

OTHERWISE 

STORE 1 TO z 
DO WHILE Z< 10 

a) 30,5 SAY "INVALID CHOICE, 
a) 31,5 SAY CHR (7) 

STORE z+1 TO z 
ENDDO 
ENDCASE 
ENDDO WHILE t 



•x* 



PLEASE TRY AGAIN" 



#***#*#*#***#*# Adpart . prg ******************* ***** ******* 



* AUTHOR 

* DATE 

* PURPOSE 

* 



: KONDYLOPOULOS HARALABOS 
: 10-10-85 

: THIS PROGRAM ADDS PARTS INTO INVENTORY BY 
: AUTOMATIC UPDATING OF THE EFFECTED STORE. 
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****** * **** * ****** ******************** **** **************** 



SET ESCAPE OFF 
SET COLOR TO 30 , 14 
SET TALK OFF 
STORE t TO flag 



* Create a continue loop 



DO WHILE t 
SELECT PRIMARY 
USE parts INDEX 
STORE ' 
ERASE 

3 1,15 SAY 
a 3,1 SAY 
a 4,60 SAY 
a 15,1 SAY 
a 23, 1 SAY 
R EAD 



parts 

' TO mpno 

h******** i PART ADDITION •*♦*****♦*" 

' ADDING TO INVENTORY * 

DATE () 

'ENTER PART NUMBER ' GET mpno 
'ENTER A BLANK TO EXIT TO ADDMENU' 



* Return to the addmenu for a blank entry 
IF $ (mpno, 1,5)=’ ' 

RETURN 



ENDIF $ (mpno, 1,5)=' • 

FIND & mpno 

* Can net locate the record 



IF #<>0 

SET COLOR TO 112 , 140 

a 21,1 SAY 'THAT PART IS ALREADY ON FILE ' 
a 22,40 SAY C HR ( 7) 

SET TALK OFF 
STORE 1 TO XX 
DC WHILE xx< 3 5 

STORE xx +1 TO xx 
ENDDO WHILE xx<70 
SET COLOR TO 30 , 1 4 
LCOP 
ENDIF #<>0 
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ERASE 



a 1,15 


SAY 


I *** * *** *** 


' PART — 


ADDITION ' **** 


a 3,1 


SAY 


'ADDING TO INVENTORY 


t 




a 4,60 


SAY 


DATE 0 








STORE 


t 


t 


TO mdesc 




STORE 


t 


' TO marplt 








STORE 


t 


• TO 


mmanf nm 






STORE 


t 


• TO 


marstrna 




STORE 


t 


' TO mjuna 








STORE 


« 


' TO 


mvstrna 






STORE 


t 


• TO 


macstrna 




STORE 


0 TO 


mqoh 








STORE 


0.00 


TO mcost 








ERASE 












a 6,1 


SAY 


•PART NUMBER 


« 


+ mpao 


a 7, i 


SAY 


'DESCRIPTION 


t 


GET 


mdesc 


a 8,i 


SAY 


'ARPLANE TYPE 


« 


GET 


marplt 


a 9,1 


SAY 


' SOPPLIER_NA ME ' 


GET 


mmanf nm 


a io, i 


SAY 


• ARPL_STORE_ 


NAME ' 


GET 


marstrna 


a 11,1 


SAY 


• JUANK_STOR E 


_NAME ' 


GET 


mjuna 


a 12, i 


SAY 


' WEAP_STORE_ 


NAME ' 


GET 


mwstrna 


a 13,1 


SAY 


• ACCES_STOR E. 


_NAME • 


GET 


macstrna 


a 14, i 


SAY 


• QOH 




GET 


mqoh 


a 15, i 


SAY 


•COST 




GET 


mcost 



5) 23,1 SAY 'ENTER A BLANK DESCRIPTION TO EXIT' 

R EAD 

* Protect the system from addition into more 

* than one file 

IF $ (macstrna, 1 , 3) <> ' • . AND. $ (m juna, 1 , 3) <> ' ' 

• AND. $ (mwstrna,1,1) O'. AND. $ (marstrna, 1, 3| <> ' 

SET COLOR TO 112,140 

5 17,15 SAY ' THIS IS NOT PART OF INVENTORY • 

SET COLOR TO 3) , 14 

LOOP 



ENDIF 
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IF $(mdesc,1,5) =' ' 

LOOP 

ENDIF 

* add the record 
APPEND ELANK 

REPLACE acstrna WITH m acstrna , desc WITH mdesc 
REPLACE manfnm WITH mmanfnm, arstrna WITH marstrna 
REPLACE arplt WITH marplt, wstrna WITH mwstrna 
REPLACE juna WITH mjuna 

REPLACE pno WITH mpno,qoh WITH mgoh,cost KITH icost 

* Allow the system to add the entry to the appropriate 

* file 
DO CASE 

CASE marstrna <> • * 

SELECT SECONDARY 

USE arstores INDEX arstores 

FIND Sp.mpno 

STORE * * TO maslfno 

ERASE 



a) 


6,1 


SAY ' 


ARSTRNA :* 


+ 


p. m arstrna 


3 


7,1 


SAY ' 


PART NUMBER 


+ 


p. m pno 


3 


8,1 


SAY ' 


DESCRIPTION :• 


+ 


p. mdesc 


a) 


9,1 


SAY ' 


ARPLANE TYPE:’ 


+ 


p. marplt 


a) 


10, 


1 SAY ' 


QOH : 


f 


+ STfi(p.mqoh, 


a) 


11, 


1 SAY ' 


COST : 


« 


«■ STR(p.mcost 


S ET COLCR TO 


112,140 






a) 


12, 


1 SAY ' 


ASLFNO ?? : 


« 


GET maslfno 


SET COLCR TO 


30, 14 







R EAD 

APPEND ELANK 

REPLACE arstrna WITH p. marstrna, pno WITH p.mpno 
REPLACE aslfno WITH maslfno, arplt WITH p. marplt 
REPLACE qoh WITH p.mqoh, desc WITH p. mdesc 
REPLACE cost KITH p.mcost 
CLEAR 
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LOOP 



CASE wstrna <> * 
SELECT SECONDARY 



USE wstores INDEX wstores 



FIND Sp.mpno 

STORE * * TO mwslfno 

ERASE 

a> 5, 1 SAY • WPSTORES : 

8 6,1 SAY 'PART NUMBER : 

3) 7,1 SAY ’DESCRIPTION : 

3 8,1 SAY ' ARPLAN_TYPE : 

a) 9,1 SAY 'QUANTITY ON HAND : 

3) 10, 1 SAY » COST 
SET COLOR TO 120,140 
3 11,1 SAY » WSLFNO ?? 

SET COLOR TO 30,14 
R EAD 

APPEND BLANK 

REPLACE wstrna WITH p. mwstrna 
REPLACE arplt WITH p.marplt, 
REPLACE qoh WITH p. mqoh, desc 
REPLACE cost WITH p.mcost 
CLEAR 
LOOP 



' + p. mwstrna 

• + p.mpno 

• + p. mdesc 

' + p.marplt 
' + STR( p. mqoh, 5) 

: ' + STR (p. mcost ,8) 

: ' GET mwslfno 



, pno WITH p.mpno 
wslfno WITH mwslfno 
WI TH p. mdesc 



CASE mjuna <> ' ' 

SELECT SECONDARY 

USE junstores INDEX junstores 

FIND Sp.mpno 



STORE ' 
ERASE 
S 5,1 SAY 
a 6,1 SAY 
a 7,1 SAY 
3> 8,1 SAY 



' TO mjslfno 



•JUNSTORES 
•?ART_NUMBER 
•DESCRIPTION 
•QUAN ON HAND 



a 9,1 SAY ’COST 



+ p. mjuna 
+ p.mpno 
+ p. mdesc 
♦ STR ( p. mqoh, 5) 

+ STR ( p. mcost ,8 ) 
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GET mjslfno 



SET COLOR TO 112,140 
a 10,1 SAY • JUA NK_S ELF # 
S ET COLOR TO 30, 14 
READ 

APPEND ELANK 



REPLACE juna WITH p.mjuna, pno WITH p.mpno 



REPLACE jslfno WITH mjslfno, qoh WITH p.mgoh 
REPLACE desc WITH p.mdesc, cost WITH p. mcost 
CLEAR 
LOOP 

CASE macstrna <> * ' 

SELECT SECONDARY 

USE acstores INDEX acstores 



FIND Sp.mpno 

STORE • * TO macslfno 

ERASE 

3 5,1 SAY *ACCESS_STORES ♦ 

a 6,1 SAY * PART_N(J M BER + 

3 7,1 SAY ’DESCRIPTION :• + 

S 8,1 SAY *ARPL_TYPE + 

5 9,1 SAY • QUAN_ON_HAN D :» + 

a 10, 1 SAY ' COST : ' 

SET COLOR TO 112,140 
a 11,1 SAY ' ACCES_SELF_# ?:' 

S ET COLOR TO 30, 14 
R EAD 

APPEND ELANK 

REPLACE acstrna WITH macstrna 
REPLACE acslfno WITH macslfno 



ma cstrna 
p. mpno 
p. mdesc 
p. marpl t 
ST R (p- mqoh, 5) 

+ S TR (p. mcos t, 8) 

GET macslfno 



, pno WITH p. mpno 
, arplt WITH p. marpl t 



REPLACE cost WITH p. mcost, acstrna WITH p. acstrna 
REPLACE desc WITH p.mdesc, qoh WITH p.qoh 



CLEAR 

LOOP 

OTHERWISE 

a 18,10 SAY ’THIS IS NOT PART OF THE INVENTORY • 
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CLEAR 
L COP 



ENDCA SE 
ENDDO WHILE t 



**************** Adsuplc . prg ***************************** 

* AUTHOR : KONDYLOPOULOS HARAL 

* DATE : 10-25-85 

* PURPOSE : THIS PROGRAM IS USED FOR ADDING NEW SUPPLIERS 

* : INTO INVENTORY 

* ************************************* ******************** 
SET ESCAPE OFF 

SET COLOR TO 30 r 14 
SET TALK OFF 
SELECT PRIMARY 

USE suppliers INDEX suppliers 
* enter suppliers 
DO WHILE t 

STORE * ' TO mmanfnm 

ERASE 

a) 1,1 SAY "*** ’SUPPLIERS — ADDITION ' ***" 
a> 3,1 SAY 'ADDING TO INVENTORY • 
a) 3,60 SAY DATE () 

3 15,1 SAY "ENTER SUPPLIER'S_ NAME » GET mmanfnm 
3 23,1 SAY 'ENTER A BLANK TO EXIT' 

STORE i (mmanfnm) TO mmanfnm 
READ 

IF $ (mmanfnm, 1 ,5) = ' ' 

RETURN 

ENDIF 

FIND Smmanfnm 
IF #<>0 

a) 22,1 SAY "THIS SUPPLIER’S NAME ALREADY » 

S) 22,2 SAY " ON THE FILE " 

S 22,60 SAY C HR ( 7 ) 
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SET TALK OFF 
STORE 1 TO XX 
DC WHILE xx< 20 

STORE XX + 1 TO XX 
ENDDO WHILE 
LCOP 
ENDIF iOO 
ERASE 

3 1,1 SAY '*** 'SUPPLIER'S — ADDITION •***' 
3 2,1 SAY 'ADDING TO INVENTORY ' 

3 2,60 SAY DATE () 



STORE 
S TORE 
STORE 
STORE 
STORE 
STORE 
ERASE 



' TO mmanfadr 
' TO mz ip: co 
' TO mcountry 
' TO marplt 
TO mdelrtime 

’ TO mproduct 



5) 


4,1 


SAY 


"SUPPLIER'S_NAME 


It 


+ mmanfnm 


3) 


5,1 


SAY 


"SUPPLIER'S ADDRE 


t« 


GET 


mmanf a dr 


3 


6,1 


SAY 


'ZIPlCODE 


« 


GET 


mzip: co 


3 


7,1 


SAY 


'COUNTRY 


f 


GET 


mcountry 


3 


8,1 


SAY 


' ARPL_TYP E_S UPPORT 


« 


GET 


marplt 


3 


9,1 


SAY 


•DELIVERY TIME 


« 


GST 


mdel: time 


3 


10, 


1 SAY 


'PRODUCT 




' GET 


1 mproduct 



5) 23,1 SAY 'ENTER A BLANK DESCRIPTION TO EXIT' 

READ 

IF $( mmanfnm , 1 , 1 )= ' ' 

RETURN 

ENDIF 

* add the record 
APPEND ELANK 

REPLACE manfnm WITH mmanfnm, manfadr WITH mmanfadr 
REPLACE zip:co WITH mzip:co, country WITH mcountry 
REPLACE ael;time WITH radelitime, arplt WITH marplt 
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REPLACE product WITH mproduct 
END DO WHILE t 



*************** Adorder ****************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



: KONDYLOPGULOS HARALABOS 
: 10-15-85 

: THIS PROGRAM ADDS NEW ORDERS INTO ORDER 
: FILE 



******************************************************* 



SET ESCAPE OFF 

SET COL CR TO 30 , 14 

SET TALK OFF 

SELECT PRIMARY 

USE orders INDEX orders 

* enter orders 

DO WHILE t 

STORE * ' TO mordno 

ERASE 

5) 1,1 SAY ************ • ORDER — ADDITIO N ***********" 
9 3,1 SAY 'ADDING TO INVENTORY • 

3 3,60 SAY DATE () 

S 15, 1 SAY "ENTER ORDER_ NUMBER " GET mordno 
3 23,1 SAY 'ENTER A BLANK TO EXIT' 

READ 

IF $( mordno, 1 , 5) = ' ' 

RETURN 

ENDIF 

FIND Smcrdno 
IF #<>0 

a 22,1 SAY 'THIS ORDER NUMBER ALREADY EXIST • 
a 22,3 SAY ' ON FILE ' 
a 22,60 SAY CHR ( 7 ) 

SET TALK OFF 
STORE 1 TO xx 
DO WHILE xx<2 0 
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STORE xx + 1 TO xx 



ENDDO WHILE 
LOOP 
ENDIF #<>0 
ERASE 

3 1,1 SAY *********** ' ORDER- -ADDITION ************* 
3 2,1 SAY ’ADDING TO INVENTORY ’ 

3 2,60 SAY DATE () 



' TO mpno 

• TO mdesc 
’ TO mdate 
• TO mordna 
' TO mmanfnm 



STORE 
STORE 
STORE 
STORE 
STORE 

STORE 0 TO mqnt 
STORE 0.00 TO mcost 
ERASE 

a 4,1 SAY "ORDER_N UMBER 
a 5,1 SAY "DATE 
a 6,1 SAY ’PNO 
a 7,1 SAY ’DESCRIPTION 
a 8,1 SAY ’NAME OF THE ORDERER 
a 9,1 SAY ’SUPPLIER 
a 10,1 SAY ’QUANTITY ORDERED 
a 11,1 SAY ’COST 
a 23,1 SAY 'ENTER A BLANK DESCRIPTION TO EXIT' 
READ 

IF $ (mmanfnm, 1, 1) =' ' 

RETURN 

ENDIF 

* add the record 



" + mordno 
" GET mdate 
GET mpno 
GET mdesc 
GET mordna 
GET mmanfnm 
' GET mqnt 
' GET mcost 



APPEND BLANK 

REPLACE manfnm WITH mmanfnm, ordno WITH mordno 
REPLACE pno WITH mpno, desc WITH mdesc, qnt WITH mqnt 
REPLACE cost WITH mcost, ordna WITH mordna, 

REPLACE date WITH mdate 
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END DO WHILE t 



**** *** ***** * ** Adusage. prg ****************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLCPOU3S HARALABOS 
10-9-85 

THIS PROGRAM ADDS INVOICES INTO USAGE FILE 
BY USING 'THE PART NUMBER 



******* *************************************************** 



SET COLOR TO 30,14 
SET TALK OFF 
SET ESCAPE OFF 
SELECT PRIMARY 
USE usage INDEX usage 
* enter orders 
DO WHILE t 

STORE ' ' TO mpno 

ERASE 

a) 1,1 SAY ********* * INVOICE — AD DITION ********** 

3 3,1 SAY ’ADDING TO INVENTORY ’ 

3 3,60 SAY DATE() 

3 15,1 SAY "ENTER P ART_ NUMBER » GET mpno 
3 23, 1 SAY ’ENTER A BLANK TO EXIT' 

READ 

IF $ ( mpno , 1 , 1}= ’ ’ 

RETURN 

ENDIF 

FIND Smpno 
IF # <> 0 

3 22,1 SAY 'THIS PART HAVE BEEN REGISTER TO ' 
3 22,3 SAY ' THE FILE* 

3 22,60 SAY C HR (7) 

SET TALK OFF 
STORE 1 TO xx 
DO WHILE xx< 2 0 

STORE XX+1 TO XX 
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ENDDO WHILE 
LCOP 
ENDIF 100 
ERASE 

a) 1,1 SAY ******** 'INVOICE — ADDITION '*********1 



a 2,1 


SAY 


•ADDING TO INVENTORY 


« 




a 2,60 


SAY 


DATE () 






STORE 


t 


' TO minvno 






STORE 


• 


' TO mdesc 






STORE 


• 


' TO mdate 






STORE 


• 


• TO m uname 






STORE 


• 


' TO muaddr 






STORE 


0 TO 


mqnt 






STORE 


0.00 


TO mcost 






ERASE 










a 4,1 


SAY 


"PART_N0 MBER 


If 


+ mpno 


a 5,1 


SAY 


"DATE 


M 


GET mdate 


a 6,1 


SAY 


•INVOICE NUMEER 


« 


GET minvno 


a 7,1 


SAY 


'DESCRIPTION 


« 


GET mdesc 


a 8,1 


SAY 


•NAME OF THE ORDERER 


« 


GET muname 


a 9,1 


SAY 


•SUPPLIER 


t 


GET muaddr 


a 10, 1 


SAY 


•QUANTITY RECEIVED 




• GET mqnt 


a 11,1 


SAY 


• COST 




' GET mcost 



5) 23,1 SAY 'ENTER A BLANK DESCRIPTION TO EXIT' 

READ 

IF $ { minvno, 1, 1) =' ' 

RETURN 

ENDIF 

* add the record 
APPEND BLANK 

REPLACE invno WITH minvno, uname WITH munaine 
REPLACE pno WITH mpno, desc WITH mdesc, gnt WITH mqnt 
REPLACE cost WITH mcost, uaddr KITH muaddr 
REPLACE date WITH mdate 
ENDDO WHILE t 
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********************* Aiarstr .prg *********************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KO NDYLOPOULOS HARALABOS 

10-18-85 

THIS PROGRAM ADDS NEW AIR PLANE_STORES INTO 
THE SYSTEM 



****** * ****** ***** ******************** **** *************** 



SET ESCAPE OFF 

SET COLOR TO 30,14 

SELECT PRIMARY 

USE ars tores INDEX arstores 

STORE t TO flag 

* enter airplane's stores 

DO WHILE flag 

STORE ' ' TO marstrna 

ERASE 

5> 1,1 SAY '**** ' A RPL_ S TORE S ADDITION ****** 

3 2,1 SAY 'ADDING TO INVENTORY ' 
a ) 3,60 SAY DATE () 

3 15,1 SAY 'ENTER ARPL_STOR E_ NAM E ' GET marstrna 
3 23,1 SAY 'ENTER A BLANK TO EXIT' 

READ 

IF $ (marstrna, 1 ,5) = ' ' 

RETURN 

ENDIF $ (mpno, 1 ,5)= ' ' 

FIND &marstrna 
IF #<>0 

3 22,1 SAY 'THIS ARPL_S TORE ALREADY EXIST ON • 
3 22,3 SAY » FILE • 
a 22,60 SAY CHR (7) 

SET TALK OFF 
STORE 1 TO XX 
DC WHILE xx< 20 

STORE xx + 1 TO xx 
ENDDO WHILE 
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LOOP 
ENDIF #<>0 
ERASE 

S 1,1 SAY ********* ' A RPL_STO RES — ADDITION ********* 
5 2,1 SAY 'ADDING TO INVENTORY • 
a 2,60 SAY DATE () 

STORE ' ' TO mpno 

STORE ' ' TO 

STORE • ' TO maslfno 

STORE • ' TO marplt 

STORE 0 TO mqoh 
STORE 0.00 TO mcost 
a 4,1 SAY ' ASPL_STORE_ NAME 
a 5,1 SAY 'PART NUMBER 
a b, 1 SAY 'DESCRIPTION 
a 7,1 SAY 'ARPL_SELF_NU MBER 
a 8,1 SAY 'ARPLANE TYPE 
a 9,1 SAY 'QNT_ON_H AND 
a 10, 1 SAY 'COST 

a 23,1 SAY 'ENTER A BLANK DESCRIPTION TO EXIT' 

READ 

IF $ (mpno, 1 , 1 )=’ ' 

RETURN 
ENDIF 

* add the record 
APPEND ELANK 

REPLACE pno WITH mpno, desc WITH mdes^ 

REPLACE arstrna WITH marstrna, arplt WITH marplt 
REPLACE aslfno WITH maslfno, qoh WITH mqoh 
REPLACE cost WITH mcost 
ENDDO WHILE t 



esc 



+ marstrna 
GET mpno 
GET mdesc 
GET maslfno 
GET marplt 
GET mqoh 
' GET mcost 



****************** Adwstr.pr q *********************** 

* AUTHOR : KONDYLOPCULOS HARALABOS 

* DATE : 10-19-85 
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* PURPOSE : THIS PROGRAM ADDS NEW WEAPON STORES INTO 

* : ‘INVENTORY 

**********************= Oc*#*** ****************** ********** 

SET ESCAPE OFF 
SET COLOR TO 30,14 
SELECT PRIMARY 
SET TALK OFF 

USE wstores INDEX wstoces 
STORE t TO flag 

* enter weapon's stores 
DO WHILE flag 

STORE ' ' TO mwstrna 

ERASE 

3 1,1 SAY ****** * WEAPON_STORES ADDITION ******** 

3 2,1 SAY ’ADDING TO INVENTORY * 

3 3, 60 SAY DATE () 

3 15,1 SAY 'ENTER W E A P 0 N_S T OR E_ N AM E ' GET mwstrna 
3 23, 1 SAY 'ENTER A BLANK TO EXIT’ 

READ 

IF $ (mwstrna, 1 ,5)= ' ' 

RETURN 

ENDIF $ (mwstrna, 1,5)= ' • 

FIND Smwstrna 
IF #<>0 

3 22,1 SAY 'THIS WEAPON_STORE ALREADY EXIST ’ 
3 22,3 SAY • ON FILE ' 

3 22,60 SAY CHR(7) 

SET TALK OFF 
STORE 1 TO xx 
DC WHILE xx<20 

STORE xx+1 TO xx 
ENDDO WHILE 
L COP 
ENDIF #<>0 
ERASE 
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a> 1,1 SAY ***** • HE APO N_STORE S — ADDITION ******* 
‘3) 2,1 SAY 'ADDING TO INVENTORY * 



a 2,60 


SAY 


DATE () 








STORE 


I 


' TO mpno 








S TORE 


• 


• TO 


mdesc 




STORE 


• 


' TO mwslfno 








STORE 


1 


' TO marplt 








STORE 


0 TO 


mqoh 








STORE 


0.00 


TO mcost 








ERASE 












a 4, 1 


SAY 


• WEAP_STORE_NAME 


1 


* mwstrna 


3 5,1 


SAY 


'PART NUMBER 


f 


GET 


mpno 


a 6,1 


SAY 


'DESCRIPTION 


f 


GET- 


mdesc 


a 7,1 


SAY 


'WEAP_SELF_NU MBER 


« 


GET 


mwslfno 


a 8,i 


SAY 


•AR PLANE TYPE 


« 


GET 


marplt 


a 9,1 


SAY 


'QNT_ON_H AND 


f 


GET 


mqoh 


a io, i 


SAY 


' COST 




• GET 


1 mcost 



3> 23,1 SAY 'ENTER A BLANK DESCRIPTION TO EXIT* 
READ 

IF $ ( mpno, 1,1)=' ' 

RETURN 

ENDIF 

* add the record 
APPEND BLANK 

REPLACE pno WITH mpno,desc WITH mdesc 
REPLACE wstrna WITH mwstrna, arplt KITH marplt 
REPLACE wslfno WITH mwslfno, qoh WITH mqoh 
REPLACE cost KITH mcost 
END DO WHILE t 



****************** Adjstr.prg ************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



: KONDYLOPOULOS HARALABOS 
: 10-19-85 

: THIS PROGRAM ADDS NEW JUNK STORES INTO THE 
: SYSTEM 
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************************************** **************** 

SET ESCAPE OFF 

SET COLCE TO 30,14 

SELECT PRIMARY 

SET TALK OFF 

USE junstores INDEX junstores 
STORE t TO flag 

* enter junk’s stores 

* Create a continue loop 
DO WHILE flag 

STORE ’ ' TO mjuna 

ERASE 

a) 1,1 SAY ****** • JUNK_STORES ADDITION ******** 

d 2,1 SAY 'ADDING TO INVENTORY • 

3 3,60 SAY DATEQ 

a 15,1 SAY 'ENTER JUNK_STORE_NAME • GET mjuna 
a 23,1 SAY 'ENTER A BLANK TO EXIT' 

READ 

IF $ (mjuna, 1,1)=' ' 

RETURN 

ENDIF $ (mjuna, 1 , 1) = ' ' 

FIND Smjuna 
IF #<>0 

a 22,1 SAY 'THIS JUNK_STORE ALREADY EXIST ON 
a 22,3 SAY • FILR ' 
a 22,60 SAY CHR (7) 

SET TALK OFF 
STORE 1 TO XX 
DO WHILE XX<20 

STORE xx+1 TO XX 
ENDDO WHILE 
LOOP 
ENDIF #<>0 
ERASE 

a 1,1 SAY ***** ' JU NK_STORES — ADDITION ******* 



a 2, i 


SAY 


•ADDING TO INVENTORY • 




a> 2,60 


SAY 


DATE 0 






STORE 


* 


• TO mpno 






STORE 


« 


* TO mdesc 




STORE 


t 


• TO mjslfno 






STORE 


t 


• TO marplt 






STORE 


0 TO 


mqoh 






STORE 


0.00 


TO mcost 






ERASE 










a 4, i 


SAY 


* J UN K_STORE_NAME 


• + m juna 


a> 5,1 


SAY 


•PART NUMBER 


• GET 


mpno 


a 6,i 


SAY 


•DESCRIPTION 


• GET 


mdest 


a 7,1 


SAY 


• JUNK_SELF_NU MBER 


• GET 


m jslf n 


a 3, i 


SAY 


•Q NT_ON_HAND 


• GET 


mqoh 


a 9,1 


SAY 


•COST 


• GE T 


mcost 


a 23, i 


SAY 


•ENTER A BLANK DESCRIPTION TO 



READ 

IF $(mpno,1,1)=» ' 

RETURN 

ENDIF 

* add the record 
APPEND ELANK 

REPLACE pno WITH mpno,desc HI TH mdesc,juna WITH mjuna 
REPLACE jslfno WITH mjslfno,goh WITH mqoh 
REPLACE cost WITH mcost 
END DO WHILE t 



***##*#*#######* Adacstr. prg #########*#***#**#£#*#*#*###*# 



* AUTHOR 

* DATE 

* PURPOSE 

* 



: KONDYLOPOULOS HARALABOS 
: 10-2-85 

; THIS PROGRAM ADDS NEW ACESSORIES STORES INTO 
: THE SYSTEM 



***$$#**##***;(:#**##****************:«:** ***$*#*********#***** 



SET ESCAPE OFF 
SET COLOR TO 30 , 14 
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SELECT PRIMARY 
USE acstores INDEX acstores 
STORE t TO flag 
* enter accessories stores 
DO WHILE flag 

STORE ' ' TO macstrna 

ERASE 

3 1,1 SAY •**** • ACESSORIES_STORES ADDITION ******* 

3 2,1 SAY ‘ADDING TO INVENTORY • 

3 3,60 SAY DATE () 

3 15,1 SAY 'ENTER ACES S SOR_ST OEE_NAM E ' GET macstrna 
3 23,1 SAY ‘ENTER A BLANK TO EXIT' 

R EAD 

IF $ (macstrna, 1 , 1) = ' ' 

RETURN 

ENDIF $ {macstrna , 1 , 1) = ' ' 

FIND Smacstrna 
IF #<>0 

a 22,1 SAY 'THIS ACESSOR_STORE ALREADY EXIST • 

3 22,3 SAY ' ON FILE • 

3 22,60 SAY CHR (7) 

SET TALK OFF 
STORE 1 TO XX 
DC WHILE XX<2 0 

STORE XX +1 TO xx 
ENDDO WHILE 
LCOP 
ENDIF #<>0 
ERASE 

a 1,1 SAY •♦*** 'AC ESSORIE S_S TOR ES — ADDITION •*♦****• 
3 2,1 SAY 'ADDING TO INVENTORY ' 
a 2,60 SAY DATE () 

STORE • • TO mpno 

STORE ' • TO mdesc 

STORE ' ' TO macslfno 
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S TO HE * ' TO marplt 

STORE 0 TO mqoh 
STORE 0.00 TO mcost 

a 4,1 SAY * ACESS_STORE_ NAME ' + macstrna 
3 5,1 SAY 'PART NUMBER ' GET mpno 

a 6,1 SAY 'DESCRIPTION • GET mdesc 

9 7,1 SAY ' ACESS_SE LF_ N UMBER ' GET macslfno 
a 8,1 SAY 'ARPLANE TYPE » GET marplt 

a 9,1 SAY ' QNT_0 N_H AND ' GET mqoh 

a 10,1 SAY 'COST ' GET mcost 

a 23,1 SAY 'ENTER A BLANK DESCRIPTION TO EXIT' 
R EAD 

IF $ (mpno, 1,1)=' ' 

RETURN 

ENDIF 

* add the record 



APPEND BLANK 

REPLACE pno WITH mpno, desc WITH mdesc 
REPLACE acstrna WITH macstrna, arplt WITH marplt 
REPLACE acslfno WITH macslfno, qoh WITH mqon 
REPLACE cost WITH mcost 
END DO WHILE t 



************ 

* AUTHOR 

* DATE 

* PURPOSE 

* 



***$ Delia enu « prg ***************** ********* 

: KONDYLOPCULOS HARALABOS 
: 10-11-85 

: THIS PROGRAM SELECTS THE REQUIRED DELETION 
: OPERATION, BY USING MENU DRIVEN CHOICE 



******* ***** ****** **** **************** ********* ******** 



SET ESCAPE OFF 
SELECT PRIMARY 
SET COLOR TO 20,5 
SET TALK OFF 
SET FORMAT TO SCREEN 
SET CONSOLE ON 
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DO WHILE t 



CLEAR 

ERASE 

3 1,15 SAY '•**** 

33.1 SAY 'DELMEN 
3 3,60 SAY DATE() 
3 7,1 SAY • OPTIO 

39.1 SAY • 0 

311.1 SAY • 

313.1 SAY * 

3 1 5, 1 SAY ' 

3 17,1 SAY • 

3 9,45 SAY • 

3 1 1 ,45 SAY • 

3 13,45 SAY • 

3 1 5, 45 SAY • 

3 1 7,45 SAY • 

3 19,30 SAY * 

320.1 SAY ' SEL 

STORE * • TO Choi 

WAIT TO choice 

DO CASE 

CASE choice = '0* 
CLEAR 
QUIT 

CAS E choice = ' 1 ' 
DO depart 
USE 

CASE choice = *2' 
DO dearstr 
USE 

CASE choice = '3' 
DO dewstr 
USE 

CAS E choice = ' 4 ' 



RPLANE' PARTS SYSTEM '****" 



IT TO OPERATING SYSTEM* 
ELETION OF PARTS' 

ELETION OF AIRP L_STORES • 
ELETION OF WEAPON_S TORES * 
ELETION OF SUPPLIERS' 
ELETION OF JUNK STORES' 
DELETION OF ACCES_S TORES • 
DELETION OF ORDERS' 
DELETION OF INVOICES' 

EXIT TO MAIN MENU' 

EXIT TO DATABASE' 

CHOICE ' 



' AI 

U' 

NS: 

EX 

1 D 

2 D 

3 D 

4 D 

5 D 

6 

7 

8 

9 

X 

ECT 

ce 



71 



DO desuplr 
USE 

CASE choice = ’5' 
DO dejstr 
USE 

CASE choice = *6* 
DO deacstr 



USE 

CASE choice = '7' 
CLEAR 
DO deorder 
USE 

CASE choice = *8' 



DO deusage 
USE 

CASE choice = '9' 

RE TURN 
USE 

CASE choice = 'X' .OR. choice = 
CANCEL 
OTHERWISE 

STCRE 1 TO z 
DO WHILE z <5 

5> 30,5 SAY "INVALID CHOICE.. 
a) 31 , 5 SAY CHR (7) 

STORE Z-H TO z 
ENDDO 
ENDCASE 
ENDDO WHILE t 






•x* 



PLEASE TRY AGAIN " 



****** * **** * Depart. prg *********************************** 

* AUTHOR : KONDYLOPOULGS HARALABOS 

* DATE : 10-15-85 

* PURPOSE : THIS PROGRAM DELETES PARTS FROM THE INVENTORY 

* : SYSTEM MASTER FILE WITH AUTOMATIC UPDATING 
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OF THE EFFECTED FILE 



* 

*************£#*************# **** * * # ** * #** **£* ********** *** 
SET COLOR TO 30,22 
DO WHILE t 

SELECT PRIMARY 

USE parts INDEX parts 

ERASE 

STORE * ' TO mpno 

3 2,1 SAY 'DELETING FROM PART FILE • 

3 2,60 SAY DATE() 

3 4,20 SAY ' ENTER PART NUMBER • GET mpno 
3 23, 1 SAY ' ENTER A BLANK TO EXIT TO DELMENU • 

READ 

IF $ (mpno, 1,1) = '' 

RETURN 

END IF 

FIND 6mpno 
IF # = 0 
ERASE 

SET COLOR TO 1 12, 1 40 

3 22,1 SAY ' THAT PART IS NOT ON THE FILE • ! ! • 

3 22,3 SAY ' PLEASE TRY AGAIN ' 

SET COLOR TO 30,1 4 
3 23, 1 SAY CHR (7) 

SET TALK OFF 
STORE 1 TO z 
DO WHILE z<30 

STORE z+1 TO z 
ENCDO WHILE 
LOCP 

EN DIF # = 0 

STORE ' • TO mdesc 

STORE • • TO mar pit 

STORE ' ' TO mmanfnm 

STORE ' ' TO marstrna 
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STORE 


« 


' TO 


mwstrna 


STORE 


I 


• TO 


macstr na 


STORE 


f 


' TO mjuna 




STORE 


0 TO 


mgoh 




STORE 


0.00 


TO mcost 




STORE 


desc 


TO md e sc 




STORE 


arplt TO marplt 




STORE 


manfnm TO mmanfnm 




STORE 


arstrna TO marstrna 


STORE 


wstrna TO mwstrna 




STORE 


juna 


TO mjuna 




STORE 


acstrna TO macstrna 


STORE 


qoh 


TO mgoh 




STORE 


cost 


TO mcost 




ERASE 








a 2, i 


SAY 


•DATA OF THE 


RECORD • 


a 2,6 


0 SAY 


DATE ( ) 





3 ) 6,1 SAY 'PART NUMBER :» 

3 7,1 SAY 'DESCRIPTION 

a 8,1 SAY 'AIRPLANE TYPE 

a 9,1 SAY 'SUPPLIERS NAME :' 

a 10,1 SAY • ARP L_STORE_ NAME :' 
a 11,1 SAY ' JU NK_STORE_NAME :' 
a 12,1 SAY • WEAPON_STO_NAME :' 

a 13,1 SAY • ACCES_STO_NAME :' 

a 14,1 SAY ' QGH : • 

a 1 5, 1 SAY 'COST : • 

a 18,20 SAY 'PLEASE BE PATIENT., 
a 19,20 SAY 'THIS HILL TAKE TIME 
DELETE 
PACK 
DO CASE 



+ mpno 
♦ mdeso 
+marplt 
♦mmanf nm 
+marstrna 
♦mjuna 
♦mwstrna 
♦macstrna 
+ S TR (mgoh, 5) 

+ STR (mcost ,8) 

» 

i i 



CASE marstrna <> ' 



SELECT SECONDARY 



USE arstores INDEX arstores 
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FIND Smpno 

DELETE 

PACK 

CLEAR 

LOOP 

CASE mwstrna <> * ' 

SELECT SECONDARY 
USE wstores INDEX wstores 
FIND Smpno 
DELETE 
PACK 
CLEAR • 

LOOE 

CASE mjuna <> ' ' 

SELECT SECONDARY 

USE junstores INDEX junstores 

FIND Smpno 

DELETE 

PACK 

CLEAR 

LOOP 

CASE macstrna <> * 

SELECT SECONDARY 
USE acstores INDEX acstores 
FIND Smpno 
DELETE 
PACK 
CLEAR 
ENDDO WHILE t 



******* ************ Desuplr. prg *********************** 

* AUTHOR : KONDYLOPOULOS HARALABOS 

* DATE : 10-11-85 

* PURPOSE : THIS PROGRAM DELETES SUPPLIERS OF THE SYSTEM 

* ** # ###* ## Jjc * # # * # ##$*###### #### 

75 



******* * 



SET COLOR TO 30,22 
SET TALK OFF 
SET ESCAPE OFF 
DO WHILE t 

SELECT PRIMARY 

USE suppliers INDEX suppliers 
ERASE 

STORE • ’ TC mmaafnm 

3 2,1 SAY ‘DELETING FROM SUPPLIERS FILE • 
a) 2,60 SAY DATE ( ) 

3 4,20 SAY • ENTER SUPPLIER NAME • GET nunanfnm 
3 23, 1 SAY • ENTER A BLANK TO EXIT TO DELMENU » 
READ 

IF $ (ffimanf nm, 1 , 1 ) = ' • 

RETURN 



ENDIF 

FIND Smmanrnm 
IF I = 0 
ERASE 

SET COLOR TO 1 12, 140 

a) 22,1 SAY ‘ THAT PART IS NOT ON THE FILE !!! • 
3 22,3 SAY • PLEASE TRY AGAIN • 

SET COLOR TO 30, 1 4 
3 23, 1 SAY CHR (7) 

SET TALK OFF 
STORE 1 TO z 
DO WHILE z<30 



STORE Z+1 TO z 



ENCDO WHILE 
LOOP 

ENDIF # = 0 
STORE • 

STORE ‘ ‘ TO 

STORE * * TO 

STORE » ’ TO 



’ TO mmanfadr 
mzi p;co 
mcountry 
mar pit 
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STORE * ' TO mdel:time 

STORE ' * TO mproduct 

STORE manfadr TO mmanfadr 
STORE manfnm TO mmanfnm 
STORE zip; co TO mzip:co 
STORE country TO mcountry 
STORE product TO mproduct 
STORE delitime TO mdel;time 
STORE arplt TO marplt 
ERASE 

5) 2,1 SAY * DATA OF THE RECORD • 
3 2,60 SAY DATE() 

3 6,1 SAY ’SUPPLIER NAME :* 

SET CCLCR TO 20, 10 



a 6,20 SAY + ! (mmanfnm) 

SET CCLCR TO 30, 1 4 

3 7,1 SAY ’SUPPLIER ADDRESS ;• 

a 8 , 1 SAY ’ZIP CODE : * 

a 9, 1 SAY ’COUNTRY : ' 

a 10,1 SAY ’ARPLANE TYPE : 

a 11,1 SAY 'DELIVERY TIME 

a 12, 1 SAY ’PRODUCT 

a 18,20 SAY ’PLEASE BE PATIENT 

DELETE 

PACK 

END DO WHILE 



♦mmauf adr 
+zip: co 
■•-mcountry 
♦mar pit 
♦ mdel; time 
♦mproduct 

t 



* ** * ** * *:$$** **$:** ^ $ Deorder, prg ************** ******** 

* AUTHOR : KO NDYLOPO ULO S HARALABOS 

* DATE : 10-14-85 

* PURPOSE : THIS PROGRAM DELETE ORDERS FROM THE SYSTEM 

************************************** ***************** 
SET COL CR TO 30,22 

SET TALK OFF 
SET ESCAPE OFF 
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DO WHILE t 



SELECT PRIMARY 

USE orders INDEX orders 

ERASE 

STORE ' ' TO mordno 

3 2,1 SAY ’DELETING FROM ORDER FILE • 

3 2,60 SAY DATE () 

3 4,20 SAY • ENTER ORDER NUMBER • GET mordno 
3 23,1 SAY • ENTER A ELANK TO EXIT TO DELMENU • 
READ 

IF $ (mordno, 1 , 1) = • * 

RETURN 



END IF 

FIND Smordno 
IF # = 0 
ERASE 

SET COLOR TO 1 12, 1 40 

3 22,1 SAY • THAT PART IS NOT ON THE FILE III ' 
3 22,3 SAY • PLEASE TRY AGAIN ’ 

SET COLOR TO 30, 1 4 
3 23 , 1 SAY CHR (7) 

SET TALK OFF 
STORE 1 TO z 
DO WHILE z <30 



STOjiE Z+1 TO Z 
ENDDO WHILE 
LOOP 



END IF # = 0 
STORE ’ 
STORE ' 
STORE ’ 
STORE ' 
STORE ' 



’ TO mde sc 
' TO radate 

' TO mmanfnm 
' TO mordna 
TO mpno 



STORE 0 TO mqnt 
STORE 0.00 TO mcost 
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STORE desc TO mdesc 
STORE date TO mdate 
STORE manfnm TO mmanfnm 
STORE ordna TO mordna 



STORE pno TO mpno 
STORE ordno TO mordno 
STORE gnt TO mgnt 
STORE cost TO mcost 



ERASE 

a) 2, 1 SAY ' DATA OF THE RECORD ' 
a) 2,60 SAY DATE() 
a 6,1 SAY 'ORDER NUMBER 
SET COLOR TO 20, 1 0 
a 6,20 SAY + ! (mordno) 

SET COLOR TO 30,14 
a 7,1 SAY 'DESCRIPTION :' 

a 8, 1 SAY ' DATE : ' 

a 9,1 SAY 'SUPPLIERS NAME :' 
a 10,1 SAY • ORDER NAME : ' 

a 11,1 SAY 'PART NUMBER :' 

a 1 2, 1 SAY 'QUANTITY : • 

3 13,1 SAY 'COST : • 

a 18,20 SAY 'PLEASE BE PATIENT. 
DELETE 
PACK 

ENDDO WHILE 



♦mdesc 
♦mdate 
♦mmanfnm 
+ mordna 
♦ mpno 

+ STR (mgnt, 5) 
+STR (mcost ,8) 

I 



****** * ****** ** * Deusags - prg ************************** 

* AUTHOR : KCNDYLOPOULOS HARALABOS 

* DATE : 10-23-85 

* PURPOSE : THIS PROGRAM DELETES INVOICES FROM THE SYSTEM 

************************************** *********** ******* 

SET COLOR TO 30,22 
SET TALK OFF 
SET ESCAPE OFF 
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DO WHILE t 

SELECT PRIMARY 

USE usage INDEX usage 

ERASE 

STORE ' ' TO minvno 

3 2,1 SAY 'DELETING FROM USAGE FILE 
3 2, 60 SAY DATE ( ) 

3 4,20 SAY • ENTER INVOICE NUMBER • 
a) 23,1 SAY ' ENTER A BLANK TO EXIT 
READ 

IF $ (minvno, 1,1) = • ' 

RETURN 



END IF 

FIND Sminvno 
IF # = 0 
ERASE 

SET COLOR TO 1 12, 1 40 
3 22, 1 SAY • THAT PART IS NOT ON 
a) 22,3 SAY • PLEASE TRY AGAIN • 
SET COLOR TO 30,14 
d 23 , 1 SAY CHR (7) 

SET TALK OFF 
S T CP. E 1 TO Z 
DO WHILE z<30 

STORE z+1 TO z 
ENDDO WHILE 
LOOP 



END IF 
STORE 
STORE 
STORE ' 
STORE * 
STORE ' 



= 0 



' TO mde sc 
' TO mdate 
' TO munarae 
' TO muaddr 
' TO mpno 



STORE 0 TO mqnt 
STORE 0.00 TO mcost 



GET minvno 
TO DELMENU • 



THE FILE ! I I ' 
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STORE desc TO mdesc 
STORE date TO mdate 
STORE uname TO muname 
STORE invno TO minvno 
STORE pno TO mpno 
STORE uaddr TO muaddr 
STORE gat TO mqnt 
STORE cost TO mcost 



ERASE 

3 2,1 SAY 'DATA OF THE RECORD ' 
a) 2,60 SAY DATE() 

3 6,1 SAY 'INVOICE NUMBER 
SET COLOR TO 20, 10 
3 6,20 SAY + I (minvno) 

SET CCLOR TO 30,14 

3 7,1 SAY 'DESCRIPTION 

3 8, 1 SAY ' DATE : ' 

5) 9 , 1 SAY • USER NAME : ' 

3 10,1 SAY 'USER ADDRESS 

a 11,1 SAY 'PART NUMBER :' 

3 12, 1 SAY ' QNT : ' 

a 13,1 SAY 'COST : • 

a 18,20 SAY 'PLEASE BE PATIENT. 
DELETE 
PACK 

ENDDO WHILE 






+md esc 
+mdate 
+muname 
+muaddr 
+ m pn o 

♦ STR (mqnt, 5) 

♦ STR (mcost ,8) 



*** **** ***** *** ** Dearstu .pr g ***** *** ******** * ******** *** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS HARALABOS 
10-25-85 

THIS PROGRAM DELETES A RPL ANE_S TO RES FROM 
THE SYSTEM 






SET COLOR TO 30,22 
SET ESCAPE OFF 
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SET TALK OFF 
ERASE 

DO WHILE t 

ERASE 

STORE ' ' TO marstma 

a) 2,1 SAY ’DELETING FROM AI RPL ANE_S TOR ES FILE • 

a 2 , 60 SAY DATE() 

a ) 4,20 SAY • ENTER AIRPLSTORE_ NAME • GET marstrna 
a 23,1 SAY ' ENTER A BLANK TO EXIT TO DELMENU • 
READ 

IF $ (marstrna , 1 , 1 ) = ’ ' 

RETURN 

ENDIF 

SELECT PRIMARY 
USE arstores INDEX arstores 
FIND Smarstrna 
IF # = 0 

SET COLOR TO 1 12, 140 

3 22,1 SAY ' THAT PART IS NOT ON THE FILE I ! I • 
3 22,3 SAY • PLEASE TRY. AGAIN • 

SET COLOR TO 30,1 4 
a 23, 1 SAY CHR (7) 

SET TALK OFF 
STORE 1 TO z 
DO WHILE z<30 

STORE Z+1 TO Z 
ENDDO WHILE 
LCCP 

ENDIF # = 0 
ERASE 

DO WHILE .NOT. EOF 
IF arstrna = marstrna 

3 3, 1 SAY • DELETION OF • 

SET COLOR TO 20,10 
S 3,14 SAY ♦ ! (marstrna) 



82 



SET COLOR TO 30,14 

a) 4, 1 SAY ************** 

STORE ' 'TO mdesc 

STORE ' ' TO maslfno 

STORE ' ' TO marstrna 

STORE ' ' TO mpno 

STORE 0 TO mqoh 

STORE 0.00 TO mcost 

ERASE 

STORE desc TO mdesc 
STORE arplt TO marplt 
STORE aslfno TO maslfno 
STORE arstrna TO marstrna 
STORE pno TO mpno 
STORE qoh TO mqoh 
STORE cost TO mcost 
ERASE 

3 2,1 SAY 'DATA OF THE RECORD ' 
33,1 SAY 'DELETION OF ' 

SET COLOR TO 20,10 
S 3,14 SAY *■ ! (marstrna) 

SET COLOR TO 30, 1 4 
3 2,60 SAY DATE() 

3 4,1 SAY ' ************ • 

a 6,1 SAY ' ARPL_STCRE_NAME :' 

a 7,1 SAY 'DESCRIPTION :' 

a 8,1 SAY 'AIRPLANE TYPE :' 

a 9,1 SAY 'SHELF NUMBER 

3 10,1 SAY 'PART NUMBER ;• 

3 11,1 SAY ' QOH : • 

a 12,1 SAY ' COST : • 

a 18,20 SAY 'PLEASE BE PATIENT.. 
DELETE 
SKIP 
L COP 



♦marstr na 
+ mdesc 
+ marplt 
♦•maslfno 
+ m pno 

+STR (mqoh, 5 ) 
♦-STR (mcost ,8) 
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E N DIF 
SKIP 

END DO WHILE 
PACK 

END DO WHILE t 



***************** Dewstr. prg **************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



: KONDYLOPOULOS HARALABOS 
: 10-28-85 

: THIS PROGRAM DELETES WEAPON STORES FROM 
: THE SYSTEM 



******* ****** ***** ****************** ** ******************** 



SET COLOR TO 30,22 
SET ESCAPE OFF 
SET TALK OFF 
ERASE 

DO WHILE t 

ERA SE 

STORE ' ' TO mvstrna 

a) 2,1 SAY 'DELETING FROM WE APO N_STO RES FILE ' 

a» 2,60 SAY DATE() 

3 4,20 SAY ' ENTER W EAPON_STOR E_NAM E ' GET mwstrna 
a 23,1 SAY • ENTER A BLANK TO EXIT TO DELMENU ' 
READ 

IF $ (mwstrna, 1) = ' ’ 

RETURN 

END IF 

SELECT PRIMARY 
USE wstores INDEX vstores 
FIND Smwstrna 
IF # = 0 

SET COLOR TO 1 12, 1 40 

S 22,1 SAY • THAT PART IS NOT ON THE FILE !!! ' 
a) 22,3 SAY ' PLEASE TRY AGAIN • 

SET COLOR TO 30, 1 4 
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a 23,1 SAY CHfi(7) 
SE1 TALK OFF 
STOBE 1 TO Z 
DO WHILE z<30 

STORE z+1 TO Z 
ENDDO WHILE 
LOOP 

ENDIF # = 0 

ERASE 

DO WHILE .NOT. EOF 
IF wstrna = mwstrna 



3 3, 1 SAY ’DELETION OF ' 

SET COLOR TO 20,10 
a 3,14 SAY + ! (mwstrna) 

SET COLOR TO 30,14 
a 4,1 SAY <******#**$♦*• 

STORE * • TO mdesc 

STORE ’ • TO mslfno 

STORE ' ' TO mwstrna 

STORE • ' TO mpno 

STORE 0 TO mqoh 

STORE 0.00 TO mcost 

ERASE 

STORE desc TO mdesc 
STORE arplt TO marplt 
STORE wslfno TO mwslfno 
STORE wstrna TO mwstrna 
STORE pno TD mpno 
STORE qoh TO mqoh 
STORE cost TO mcost 
ERASE 

a 2,1 SAY ’DATA OF THE RECORD • 
a 3,1 SAY 'DELETION OF • 

SET COLOR TO 20, 10 
a 3,14 SAY *■ l (mwstrna) 
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SET COLOR TO 30 , 1 4 

3) 2,60 SAY DATE() 

a 4,1 SAY ************** 

a 6,1 SAY ' ARPL_STCSE_NAME 

a 7,1 SAY ‘DESCRIPTION 

a 8,1 SAY ‘AIRPLANE TYPE :• 

a 9,1 SAY ‘SHELF NUMBER ;• 

3 10,1 SAY ‘PART NUMBER :• 

a 11,1 SAY ’ QOH : ’ 

a 12,1 SAY ‘COST :• 

a 18,20 SAY 'PLEASE BE PATIENT. 

DELETE 
SKIP 
LCOP 
END IF 
SKIP 

ENDDO WHILE 
PACK 

ENDDO WHILE t 



+ strna 
+mdesc 
+marplt 
+mw slfno 
*■ Jipno 

+STR (aqoh , 5 ) 

+ STR (mcost , 8) 

f 



*** *** * *** * * * ** * * De js tc - prg ************************** * 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS HARALABOS 
10-29-85 

THIS PROGRAM DELETES JUNK STORES FROM 
THE SYSTEM 



******* *** *********************************************** 



SET COLOR TO 30,22 
SET ESCAPE OFF 
SET TALK OFF 
ERASE 

DO WHILE t 

ERASE 

STORE ' ’ TO mjuna 

a 2,1 SAY 'DELETING FROM JUNK_STORES FILE ' 
a 2, 60 SAY DATE() 
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a) 4,20 SAY * ENTER JO NK_STO RE_ NAME * GET mjuna 
3 23,1 SAY • ENTER A BLANK TO EXIT TO DELMENO • 
READ 

IF $ (mjuna, 1 , 1 ) = ' * 

RETURN 



END IF 

SELECT PRIMARY 

USE j unstores INDEX junstores 
FIND Smjuna 
IF # = 0 

SET COLOR TO 1 12, 1 40 

a) 22,1 SAY ' THAT PART IS NOT ON THE FILE !!! ’ 
3 22,3 SAY 'PLEASE TRY AGAIN ’ 

SET COLOR TO 30,14 
3 23, 1 SAY CHR (7) 

SET TALK OFF 
STORE 1 TO z 
DO WHILE z<30 

STORE z+1 TO z 
EH EDO WHILE 
LOOP 

END IF # = 0 
ERASE 

DO WHILE .NOT. EOF 
IF juna = mjuna 



a 3,1 SAY 'DELETION OF ' 

SET COLOR TO 20, 10 
a 3,14 SAY + !(mj una) 

SET COLOR TO 30 , 1 4 
S 4,1 SAY ****** ******* » 

STORE ' ' TO mdesc 

STORE ' 'TO mjslfno 

STORE ' ’ TO mjuna 

STORE ' ' TO mpno 

STORE 0 TO maoh 
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STORE 0.00 TO mcost 
ERASE 

STORE desc TO mdesc 
STORE jslfno TO mjslfno 
STORE juna TO mjuna 
STORE pno TO mpno 

STORE goh TO mgoh 

STORE cost TO mcost 
ERASE 

3 2,1 SAY 'DATA OF THE RECORD ' 
3 3, 1 SAY ' DELETION OF • 

SET COLOR TO 20,10 
9 3, 14 SAY + I (mjuna) 

SET COLOR TO 30,14 
a 2,60 SAY DATE() 
a 4,1 SAY '************* 

a 6,1 SAY 'ARP L_ST0RE_ NAME :' 

a 7,1 SAY 'DESCRIPTION :' 

3 8,1 SAY 'SHELF NUMBER 

a 9, 1 SAY ' PART NUMBER : • 

3 10,1 SAY ' QOH :• 

a 11,1 SAY 'COSI :• 

a 18,20 SAY 'PLEASE BE PATIENT. 
DELETE 
SKIP 
L COP 
END IF 
SKIP 

ENDDO WHILE 
PACK 

ENDDO WHILE t 



♦ m j una 
♦mdesc 

♦ mjslfno 

♦ mpno 

♦ STR (mgoh, 5) 

♦ STR (mcost , 8) 

f 



*** **** *** * * * ** * Deacstr.prg ****************************** 

* AUTHOR : KONDYLOPOULOS HA2ALABOS 

* DATE : 10-25-85 
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* PURPOSE 

* 



THIS PROGRAM DELETES ACESSORIES STORES FROM 
THE SYSTEM 



*********************************************************** 

SET COLOR TO 30,22 

SET ESCAPE OFF 

SET TALK OFF 

ERASE 

DO WHILE t 

ERASE 

STORE * * TO macstrna 

5) 2,1 SAY 'DELETING FROM ACCES S_STO RES FILE ' 

3 2,60 SAY DATE() 

9 4,20 SAY ' ENTER ACCES_STORE_NAME • GET macstrna 
S 23,1 SAY • ENTER A BLANK TO EXIT TO DELMENU ' 

READ 

IF $ (macstrna , 1) = ' ' 

RETURN 

ENDIF 

SELECT PRIMARY 
USE acstores INDEX acstores 
FIND Smacstrna 
IF # = 0 

SET COLOR TO 1 12, 1 40 

3 22,1 SAY ' THAT PART IS NOT ON THE FILE ! ! ' 
a 22,3 SAY • PLEASE TRY AGAIN • 

SET COLOR TO 30,1 4 
a 23, 1 SAY CHR (7) 

SET TALK OFF 
STORE 1 TO z 
DO WHILE z<30 

STORE z + 1 TO z 
ENCDO WHILE 
LOCP 

ENDIF # = 0 
ERASE 
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DO WHILE .NOT. EOF 
IF acstrna = macstrna 

3 3,1 SAY * DELETION OF ' 

SET COLOR TO 20 , 1 0 
3 3,14 SAY + I (macstrna) 

SET COLOR TO 30 , 1 4 
3 4, 1 SAY ************** 

STORE * * TO mdesc 

STORE ' ' TO macslfno 

STORE * * TO macstrna 

STORE ' * TO mpno 

STORE 0 TO mqoh 
STORE 0.00 TO mcost 
ERASE 

STORE desc TO mdesc 
STORE arplt TO marplt 
STORE acslfno TO macslfno 
STORE acstrna TO macstrna 
STORE pno TO mpno 
STORE qoh TO mqoh 
STORE cost TO mcost 
ERASE 

3 2,1 SAY 'DATA OF THE REC 
33,1 SAY 'DELETION OF ’ 

SET COLOR TO 20, 10 
3 3,14 SAY * ! (macstrna) 

SET COLOR TO 30,14 
3 2 ,60 SAY DATE() 

5) 4 # 1 SAY ******* ******* 

3 6,1 SAY ' ARPL_STCRE_NAME 
3 7, 1 SAY 'DESCRIPTION 
3 8,1 SAY 'AIRPLANE TYPE 
3 9,1 SAY 'SHELF NUMBER 
3 10,1 SAY 'PART NUMBER 
3 11,1 SAY ' QOH 



>RD 



. i 

. t 

. « 

. • 
m 

. t 
. i 



acstr na 
♦mdesc 
♦ marplt 
♦macslfno 
♦ mpno 

+STR (mqoh, 5) 
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3 1 2, 1 SAY ' COST : ' 

3 18,20 SAY 'PLEASE BE PATIENT. 
DELETE 
SKIP 
LOOP 
EN DIF 
SKIP 

s 

ENDDO WHILE 
PACK 

ENDDO WHILE t 



+ STR (mcost ,8) 



******************* Modiraenu . prg ************************** 

* AUTHOR ; K CNDYLOPOULOS HARALABOS 

* DATE : 10-20-85 

* PURPOSE : THIS PROGRAM ALLOWS THE USER TO SELECT A 

* : CHOICE FOR THE APPROPRIATE FILE MODIFICATION 

*********************************************************** 



SELECT PRIMARY 
SET COLOR TO 20,5 
SET TALK OFF 
SET FORMAT TO SCREEN 
SET CONSOLE ON 
DO WHILE t 

CLEAR 

ERASE 

3 1,15 SAY ******** 'AIRPLANE' PARTS SYSTEM •****♦*" 

33.1 SAY • MODIMENU' 

3 3,60 SAY DATE() 

37.1 SAY ' OPTIONS: • 

3 9,1 SAY « 0 EXIT TO OPERATING SYSTEM' 

3 11,1 SAY • 1 MODIFICATION OF PARTS' 

2 MODIFICATION OF AI RP L_STORES ' 

3 MODIFICATION OF WEAPON_STORE S • 

4 MODIFICATION OF SUPPLIERS' 

5 MODIFICATT1CN OF JUNK STORES' 



313,1 SAY • 
3 15,1 SAY ' 
3 17,1 SAY • 
3 9,45 SAY ’ 
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3 1 1, 45 SAY ' 
3 13,45 SAY » 
3 1 5, 45 SAY ' 
a) 17,45 SAY • 
3 19,26 SAY » 
3 20,1 SAY • 
STORE • • TO 



6 MODIFICATION OF ACCES_STORE S • 

7 MODIFICATION OF ORDERS • 

8 MODIFICATION OF INVOICE • 

9 EXIT TO MAIN MENU ' 

X EXIT TO DATABASE * 

SELECT CHOICE « 
choice 



WAIT TO choice 



DO CASE 

CAS E choice = ’O' 
CLEAR 
QUIT 

CAS E choice = • 1 ' 
DO mopart 
USE 

CASE choice = *2’ 
DO moarstr 
USE 

CASE choice = '3' 
DO mowpstr 
USE 

CASE choice = ’4 1 
DO mosuplr 
USE 

CASE choice = '5' 
DO mojustr 
USE 

CASE choice = 'S’ 
DO moacstr 
USE 

CASE choice = '7* 
DO moorder 
USE 

*8 ' 



CASE choice = 
DO mousage 
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•9' 



USE 

CASE choice = 

RETURN 
USE 

CASE choice = 'X' .OR. choice = 'x' 

CANCEL 

OTHERWISE 

STORE 1 TO z 
DO WHILE z<5 
SET COLOR TO 112, 140 

S 30,5 SAY "INVALID CHOICE PLEASE TRY AGAIN " 

SET COLOR TO 30,1 4 
a 31 , 5 SAY CHR (7) 

STORE z+1 TO z 
ENCDO 
ENDCASE 
ENDDO WHILE t 



****** * ** * * * *** Mopar t.p r g *********** ***************** *** 

* AUTHOR : KCND YLOPOULOS HARALABOS 

* DATE : 1 1-2-85 

* PURPOSE : THIS PROGRAM MODIFIES PART WITH AUTOMATIC 

* : UPDATING OF THE EFFECTED FILE 

******* ****** ** * ******** ****** ******** ***************** *** 

SET ESCAPE OFF 
SET COL CR TO 14,30 
SELECT PRIMARY 
SET TALK OFF 
ERASE 

*5) 8,18 SAY 'PLEASE BE PATIENT • 

DO WHILE t 

USE parts INDEX parts 
STORE ' ' TO mpno 

ER ASE 

5) 1,20 SAY ' EDITING OF A FILE' 
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5) 3,20 SAY • ENTER PART_ NUMBER ’ GET mpno 
9 20,2 SAY 'ENTER A BLANK TO EXIT TO MODIMENU' 
a) 3,50 SAY DATEQ 
READ 

IF $ (mpno, 1 ,1 ) =' ' 

RETURN 

EN DIF $ (mpno, 1,1)= ' ' 

FIND Bmpno 
IF #=0 
ERASE 

a) 13,17 SAY ' THIS RECORD IS NOT IN THE FILE' 
STORE ' ' TO manswer 

? ' Enter a ' 

SET COLOR TO 120,10 

->-> ii i j in 

SET COLOR TO 30 , 14 
?? ' to try again or ' 

SET COLOR TO 1 12 , 140 
?? " ' N ' " 

SET COLOR TO 30, 1 4 

?? 'if not and then hit return ' 

SET COLOR TO 10, 20 
ACCEPT TC manswer 

SET COLOR TO 30, 1 4 

IF manswer = 'N' .OR. manswer = 'n' 

RETURN 

ELSE 

LOOP 
END IF 

ENDIF 

ERASE 

5) 1,20 SAY 'EDITING OF A FILE' 

a) 3,50 SAY DATE () 

STORE ' * TO mdesc 

STORE • • TO mar pit 
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STORE 

STORE 

STORE 

STORE 

STORE 



• TO mmanfnm 
' TO marstrna 
' TO mjuna 

' TO mwstrna 
' TO macstrna 

STORE 0 TO mg oh 
STORE 0.00 TO mcost 
ERASE 

STORE desc TO mdesc 
STORE arplt TO marplt 
STORE manfnm TO mmanfnm 
STORE arstrna TO marstrna 
STORE vstrna TO mwstrna 
STORE juna TO mjuna 
STORE acstrna TO macstrna 
STORE goh TO mqoh 
STORE cost TO mcost 
* Edit the new values 
3 8,1 SAY ’PART NUMBER 
3 9,1 SAY 'DESCRIPTION 
3 10,1 SAY ’ARPLT 
3 11,1 SAY ' MANFNAME 
3 12,1 SAY 'QOH 
3 13,1 SAY ’COST 
DO CASE 



: ' + mpno 
' GET mdesc 
GET marplt 
GET mmanfnm 
GET mqoh 
GET mcost 



CASE marstrna <> ' ' 

SET COLOR TO 112, 140 

3 14,1 SAY ' ARPLPA_STO_ # ' GET marstrna 
CASE mwstrna <> ' ' 



SE 1 COLOR TO 20, 10 

3 15,1 SAY ' WEAPON_STO_# ' GET mwstrna 
CASE macstrna <> ' ' 

SET COLOR TO 112, 140 

3 16,1 SAY ' ACCES_STOR_ # ' GET macstrna 

CASE mjuna <> ' ' 
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SET COLOR TO 20, 10 

a 17,1 SAY 'JUNK_STORE_#» GET mjuna 
EN DCAS E 

SET COLOR TO 30,14 
READ 



* Replacitent of the values 

REPLACE desc WITH mdesc, arplt WITH marplt 
REPLACE wstrna WITH mwstrna, cost WITH mcost 
REPLACE juna WITH mjuna, acstrna WITH macstrna 
REPLACE qoh WITH mqoh, arstrna WITH marstrna 
CASE arstrna <> ’ • 

SELECT SECONDARY 



USE arstores INDEX arstores 



FIND Smpno 

STORE ' ' TO maslfno 

STORE aslfno TO maslfno 
ERASE 

S 6,1 SAY ' ARPL_STORE_NAME 

a 7,1 SAY • PA RT_N UMBER :' 

a 8,1 SAY 'DESCRIPTION :• 

a 9,1 SAY ' AR PL_T YPE 

a 10,1 SAY 'QUANT ON HAND :» 
a 11,1 SAY 'COST :' 

SET COLOR TO 112, 140 
a 12,1 SAY ' AIRPL_SHELF_NUMB: ' 
SET COLOR TO 30,14 
READ 

REPLACE arstrna WITH marstrna, 
REPLACE arplt WITH marplt, cos 
REPLACE qoh WITH mqoh, aslfno 
REPLACE desc WITH mdesc 
CLEAR 
LOOP 

CASE wstrna <> ' ' 

SELECT SECONDARY 



+ marstrna 
+ a pno 
+ mdesc 
+ marplt 
+ STR (mqoh , 5) 

+ STR(mcost,8) 

GET maslfno 



pno WITH mpno 
t WITH mcost 
WITH maslfno 
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USE wstores INDEX wstores 



FIND Smp.no 

STCRE * * TO mwslfno 

STORE wslfno TO mwslfno 



ERASE 

a 6,1 SAY * WEAPON_STO_NAME + mwstrna 

a) 7,1 SAY 'PART NUMBER + m pno 

a> 8,1 SAY ’DESCRIPTION + mdesc 

a 9,1 SAY ' ARPLN_TYPE + marplt 

5 10,1 SAY ’QUANTITY ON HAND:’ + STR(mgoh,5) 

a) 11,1 SAY ’COST :’ + STR(mcost,8) 

SET COLOR TO 112,140 

S 12,1 SAY ' WEAPON_SHELF_# :’ GET mwslfno 

SET C01CR TO 30,14 

READ 

REPLACE wstrna WITH mwstrna, pno WITH mpno 
REPLACE arplt WITH marplt, wslfno WITH mwslfno 



REPLACE cost WITH mcost , cost WITH mcost 
REPLACEdesc WITH mdesc 



CL EAR 
LOOP 

CASE juna <> ’ 

SELECT SECONDARY 



USE junstores INDEX junstores 



FIND Smpno 

STORE * ' TO mjslfno 

STCRE jslfno TO mjslfno 



ER ASE 

a 6,1 SAY ’JUNSTORES 
a 7, 1 SAY 'PART NUMBER 
3 8,1 SAY ’DESCRIPTION 
a 9,1 SAY ’QUAN ON HAND 
a 10,1 SAY ’COST 
SE 1 COLOR TO 112,140 
a 11, 1 SAY ’JUANK SHELF 



: * «■ m j ana 
: • + mpno 
: • + md esc 
; * * STR (mgoh,5) 

+ STR (mcost, 8) 

NUM: * GET mjslfno 
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SET COLOB TO 30,14 
BEAD 

REPLACE juna WITH mjuna, pno WITH mpno 



REPLACE jslfno WITH m jslfno, goh WITH mgoh 
REPLACE desc WITH mdesc, cost WITH mcost 
CLEAR 
LOOP 

CASE macstrna <> ' ' 

SELECT SECONDARY 
USE acstores INDEX acstores 
F I ND & m p no 

STORE ' ' TO macslfno 

STORE acslfno TO macslfno 
ERASE 

a) 6,1 SAY ' ACCESS STORES 
a) 7,1 SAY • PART NUMBER 
d 8,1 SAY 'DESCRIPTION 
a) 9,1 SAY ' ARPL TYPE 
a) 10,1 SAY 'QUANT ON HAND 
a) 11,1 SAY 'COST 
SET COLOR TO 1 12, 14 0 
a) 12,1 SAY 'ACCESS SHELF # 

SET COLOR TO 30 , 1 4 
READ 

REPLACE acstrna WITH macstrna, pno WITH mpno 
REPLACE acslfno WITH macslfno, arplt WITH marplt 
REPLACE cost WITH mcost 

REPLACE desc WITH mdesc, goh WITH mgoh 

CLEAR 

LO CP 

OTHERWISE 

3 18,10 SAY ' THIS PART IS NOT IN THE INVENTORY l!! ' 



+ macstrna 
+ mpno 
♦ mdesc 
+ marplt 
:' + STR(mgoh,5) 

: ' + STR (mcost, 8) 



:' GET macslfno 



CLEAR 
LO CP 
EN DC AS E 
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END DO WHILE t 



******************** Mosuplr . prg ************************ 

* AUTHOE : KONDYLOPOULOS HARALABOS 

* DATE : 11-2-85 

* PURPOSE : THIS PROGRAM MODIFIES THE SUPPLIER'S DATA 

4c## ## ## ###### ######### ####### ###### ### ## ####### ######## ## 

SET COLOR TO 14,30 
SET ESCAPE OFF 
SELECT ERIMARY 
SET TALK OFF 
ERASE 

DO WHILE t 

USE suppliers INDEX suppliers 
STORE ' ' TO mmanfnm 

ER ASE 

o> 1,20 SAY • EDITING OF A FILE* 

a) 3,20 SAY ' ENTER SUPPLIER NAME 'GET mmanfnm 

3 20,2 SAY 'ENTER A BLANK TO EXIT TO MODI MENU' 

S 3,60 SAY DATE() 

READ 

STORE ! (mmanfnm) TO mmanfnm 
IF $ (mmanfnm, 1 , 1 ) =' ' 

RETURN 

EN DIF $ (mmanfnm, 1,1) = • ' 

FIND Smmanfnm 
IF #=0 
ERASE 

3 13,17 SAY ' THIS RECORD IS NOT IN THE FILE' 
STORE ' ' TO manswer 

? ' Enter a ' 

SET COLOR TO 120,10 

ii « y ' " 

SET COLOR TO 30,14 
?? ' tc try again or ' 
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SET COLOR TO 112, 140 
?? " ' N ' " 

SET COLOR TO 30,14 

?? 'if not and then hit return ' 

SET COLOR TO 10, 20 
ACCEPT TO manswer 

SET COLOR TO 30,14 

IF manswer = 'N' .OR. manswer = 'a' 
RETURN 
ELSE 

LOOP 
END IF 



ENDIF 
ERASE 

at 1,20 SAY 'EDITING OF A FILE' 
a) 3,50 SAY DATE () 

STORE ' 

STORE ' 

' ' TO mcountry 

' ' TO mar pit 

' ' TO m del: time 

' ' TO m product 



' TO mmanfadr 
' TO mzipico 



STORE 
STORE 
STORE 
STORE 
ERASE 

STORE manfnm TO mmanfnm 
STORE manfadr TO mmanfadr 
STORE zip:co TO mzip:co 
STORE country TO mcountry 
STORE arplt TO marplt 
STORE del: time TO mael: time 
STORE product TO mproduct 
* Edit the new values 
« 8,1 SAY 'SUPPLIER NAME:' 
SET COLOR TO 20,10 
a) 8,17 SAY !(+ mmanfnm) 

SET COLOR TO 30,14 
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3 9,1 SAY 'SUPPLIER ADDRESS' GET mmanfadr 



a) 


10, 1 


SAY 


•ZIPlCODE 


• GET 


mzip :co 


3 


11, 1 


SAY 


•COUNTRY 


• GET 


mcountry 


a) 


12,1 


SAY 


'ARPLANE TYPE 


• GET 


marplt 


3 


13,1 


SAY 


'DELIVERY TIME 


' GET 


mdel: time 


9 


14,1 


SAY 


•PRODUCT 


' GET 


mpro duct 



READ 

* Replacment of tha values 

REPLACE manfnm WITH mmanfnm, manfadr WITH mmanfadr 
REPLACE zip:co WITH mzipico, arplt WITH marplt 
REPLACE product WITH mproduct, country WITH mcountry 
REPLACE delitime WITH m del; time 
END DO WHILE t 



***************** Mousage.pr g ************************* 

* AUTHOR : KCNDYLOPOULOS HARALABOS 

* DATE ; 1 1-3-85 

* PURPOSE : THIS PROGRAM MODIFIES THE INVOICE DATA 

****** * ****************** ****************************** 
SET COLOR TO 14,30 

SET ESCAPE OFT 
SELECT PRIMARY 
SET TALK OFF 
ERASE 

DO WHILE t 

USE usage INDEX usage 
STORE ' ' TO minvno 

ERASE 

3 1,20 SAY • EDITING OF A FILE' 

5) 3,20 SAY ' ENTER INVOICE_NUMBER ' GET minvno 
3 20,2 SAY 'ENTER A BLANK TO EXIT TO MODIMENU' 

3 3,50 SAY DATE() 

READ 



IF $ (minvno, 1 , 1 )= ' ' 
RETURN 
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EN DIF $ {minvno, 1,1)=* ' 

FIND & minvno 
IF #=0 
ERASE 

a) 13,17 SAY • THIS RECORD IS NOT IN THE FILE’ 
STORE ' ' TO manswer 

2 ' Enter a * 

SET COLOR TO 120,10 

?•? ii « y » ii 

SET COLOR TO 30 , 14 
?? ' to try again or * 

SET COLOR TO 1 12, 140 

?? " * N ' 11 

SET COLOR TO 30, 1 4 

22 ’if not and then hit return * 

SET COLOR TO 10,20 
ACCEPT TO manswer 

SET COLOR TO 30, 1 4 

IF manswer = ’N’ .OR. manswer = ’n’ 

RETURN 



ELSE 

LOOP 

ENDIF 

ENDIF 

ERASE 




5 1,20 


SAY 


'EDITING OF A FILE’ 


a) 3,50 


SAY 


DATE () 


STORE 


« 


' TO mdesc 


STORE 


i 


• TO mpno 


STORE 


i 


’ TO muname 


STORE 


t 


' TO mdate 


STORE 




’ TO muaddr 


STORE 


0 10 


mqnt 


STORE 

ERASE 


0. 00 


TO mcost 
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STORE invno TO minvno 
STORE desc TO mdesc 
STORE pno TO mpno 
STORE date TO mdate 
STORE uname TO muname 
STORE uaddr TO muaddr 
STORE qnt TO mgnt 
STORE cost TO mcost 

* Edit the new values 

5 ) 8,1 SAY 'INVOICE NUMBER 
SET COLOR TO 20,10 
3) 8,17 SAY !(+ minvno) 

SET COLOR TO 30,14 

3) 9,1 SAY 'DESCRIPTION • GET mdesc 
3) 10,1 SAY 'DATE • GET mdate 

3 11,1 SAY ' USER NAME • GET muname 

3) 12,1 SAY 'USER ADDRESS' GET muaddr 

3) 13,1 SAY 'PART NUMBER • GET mpno 

5) 14,1 SAY 'QNT ' GET mgnt 

3 15,1 SAY 'COST • GET mcost 

READ 

* Replacment of tha values 

REPLACE desc WITH mdesc, date WITH mdate 
REPLACE pno WITH mpno, invno WITH minvno 
REPLACE qnt WITH mqnt, uaddr WITH muaddr 
REELACEuname WITH muname, cost WITH mcost 
ENDDO WHILE t 



*** **** ***** * ***** ** Moorder . prg *********=!'************** 

* AUTHOR : KONDYLOPOULOS HARALABOS 

* DATE : 1 1-3-85 

* PURPOSE : THIS PROGRAM MODIFIES THE ORDERS OF THE 

* : PARTS ON THE ORDER FILE 

****** ****** ****** ****** * *** ********** ******************** 

SET COLOR TO 14,30 
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SET ESCAPE OFF 
SELECT PRIMARY 
SET TALK OFF 
ERASE 

* Create a continue loop 
DO WHILE t 

USE orders INDEX orders 
STORE ' * TO mordno 

ER ASE 

a) 1,20 SAY • EDITING OF A FILE' 

3) 3,20 SAY • ENTER ORDER NUMBER ' GET mordno 
a) 20,2 SAY 'ENTER A BLANK TO EXIT TO MODIMENU* 
a) 3,50 SAY DATE () 

READ 

IF $ (mordno, 1,1) = ' • 

RETURN 

EN DIF $ (mordno, 1 , 1) = • • 

FIND Smordno 
IF #=0 
ERASE 

a) 13,17 SAY ' THIS RECORD IS NOT IN THE FILE' 
STORE ' ' TO manswer 

? ' E n te r a ' 

SET COLOR TO 120,10 

'>'> ii i y i n 

SET COLOR TO 30 , 14 
?? ' to try again or ' 

SET CCLCR TO 112, 140 
?? " ' N ' " 

SET COLOR TO 30, 14 

?? ' ir not and then hit return ' 

SET COLOR TO 10,20 
ACCEPT TO manswer 

SET CCLCR TO 30, 1 4 

IF manswer = 'N' .OR. manswer = 'n' 
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RETURN 

ELSE 

LOCP 
END IF 



ENDIF 

ERASE 

3 1,20 SAY 'EDITING OF A FILE* 
S 3,55 SAY DATE () 

STORE ' 

STORE ' 



STORE 

STORE 

STORE 



• TO mdesc 

• TO mpno 

' TO mmanfnm 
' TO mdate 
• TO mordna 



STORE 0 TO mqnt 
STORE 0.00 TO mcost 
ERASE 

STORE desc TO mdesc 
STORE pno TO mpno 
STORE manfnm TO mmanfnm 
STORE date TO mdate 
STORE ordna TO mordna 
STORE qnt TO mqnt 
STORE cost TO mcost 
3 8,1 SAY 'ORDER NUMBER ; 
SET COLOR TO 20, 10 
a 8,17 SAY ! (+ mordno) 

SET COLOR TO 30, 14 
a 9,1 SAY 'DESCRIPTION 1 
a 10,1 SAY 'DATE 
a 11,1 SAY ' M ANFACI _ NAM E 
a 12,1 SAY 'ORDER NAME 
a 13,1 SAY 'PART NUMBER 
a 14,1 SAY 'QUAN_ON_HAN D 
a 15,1 SAY 'COST 
READ 



GET mdesc 
GET mdate 
GET mmanfnm 
GET mordna 
GET mpno 
GET mqnt 
GET mcost 
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* Replacment of tha values 
REPLACE desc WITH mdesc, date WITH mda te 
REPLACE pno WITH mpno, ordno WITH mordno 
REPLACE gnt WITH mqnt, ordna WITH mordna 
REPLACE nianfnm WITH mmanfnm, cost WITH mcost 
ENDDO WHILE t 



*** #*** *** * * # r e pome nu. prg ***************************** 



* AUTHO B 

* DATE 

* PURPOSE 

* 

* 



KONDYLOPOULOS HARALABOS 
10-6-85 

THIS PROGRAM SELECTS THE REQUIRED REPORT 
OPERATION OF THE SYSTEM BY USING MENU DRIVEN 
CHOICE 



*********************************************************** 



SET ESCAPE OFF 
SELECT PRIMARY 
SET COLOR TO 20,5 
SET TALK OFF 
SET FORMAT TO SCREEN 
SET CONSOLE CN 
DO WHILE t 

CLEAR 

ERASE 

3 1,15 SAY "**** 'AIRPLANE’ PARTS SYSTEM • ******•• 
33,1 SAY ' REPOMENU' 

3 3,60 SAY DATE() 

3 7,1 SAY • OPTIONS: » 



39,1 SAY • 

3 11,1 SAY 
3 13,1 SAY 
3 15,1 SAY 
3 17,1 SAY 
3 19,1 SAY 
3 9,38 SAY 
3 11,38 SAY • 



0 EXIT TO OPERATING SYSTEM' 

1 LISTING OF ALL THE INVENTORY' 

2 LISTING OF ALL THE SUPPLIERS' 

3 LISTING OF ALL THE ORDERS' 

4 LISTING OF ALL THE INVOICES' 

5 LISTING OF ALL THE AR_STR PARTS' 

6 LISTING OF ALL THE JU_STR PARTS' 

7 LISTING OF ALL THE WE STR PARTS' 
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a) 13,38 SAY • 8 LISTINS OF ALL THE AC_STR PARTS' 

3 15,38 SAY ' 9 EXIT TO DATABASE' 

d 17,38 SAY • X EXIT TO MAIN MENU' 

3 2 0,1 SAY • SELECT CHOICE ' 

STORE ' ' TO choice 

WAIT TO choice 
DO CASE 

CASE choice = 'O' 

CLEAR 

QUIT 

CASE choice = '1' 

DO repart 
USE 

CASE choice = *2' 

DO resuplr 
USE 

CASE choice = '3' 

DO reorder 
USE 

CASE choice = *4' 

DO reusage 
USE 

CASE choice = '5' 

DO rearstr 
USE 

CASE choice = '5 ’ 

DO rejstr 
USE 

CASE choice = *7' 

DO revstr 
USE 

CASE choice = '8' 

DO reacstr 
USE 

CASE choice = '9' 
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'X' .OR. choice 



CANCEL 

CASE choice = 'X' .OR. choice 
RETURN 
USE 

OTHERWISE 

STORE 1 TO z 
DO WHILE Z< 10 

D 30,5 SAY " INVALID CHOICE 
5 > 31,5 SAY CHR (7) 

STORE z+1 TO z 
ENEDO 
ENDCASE 
END DO WHILE t 



x’ 



PLEASE TRY A3 AIN » 



**************** r epairt. p eg ***************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS HARALABOS 
11-12-85 

THIS PROGRAM LISTS THE INVENTORY OF THE ALL 
PARTS OF THE SYSTEM 



************************ * *** ****************************** 



SET PRINT OFF 
SET ESCAPE OFF 
SET COLOR TO 30, 14 
SET TALK OFF 

SET ALTERNATE TO repart.txt 

SET ALTERNATE ON 

ERASE 

2) 2,18 SAY "********o INVENTORY LISTING ************ 

SET COLOR TO 20,10 
a) 2 ,60 SAY DATE () 

SET COLOR TO 30,14 
USE PARTS 

a> 10,18 SAY 'INDEXING PLEASE BE PATIENT' 

a) 16,18 SAY 'IF YOU WANT TO CANCEL. PLEASE HII <ESCAPE> • 
STORE t TO flag 
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DO WHILE flag 
ERASE 

STORE ' ' TO mquery 

ACCEPT " PRINTED INVENTORY ? Y/N '• TO mquery 
ERASE 

IF mquery = 'Y'.OR. mquery = 'y' 

SET PRINT ON 
STORE 1 TO c 
DO WHILE c<5 

SET COLOR TO 20 , 10 
SET PRINT ON 

3 12,20 SAY 'SET PRINTER ON PLEASE' 
a 12,50 SAY CHR (7) 

STORE c+1 TO c 
SET COLOR TO 30,14 
ENDDO WHILE 
ELSE 

SET PRINT OFF 
ENDIF 

STORE t TO xf lag 
DC WHILE xflag 
ERASE 

SET COLOR TO 112,140 

a 11,15 SAY • IF YOU WANT TO FREEZE THE SCREEN 
a 12,15 SAY ' DURING THE LISTING, HIT CTRL 
a 12,15 SAY • _LOCK TO CONTINUE, PRESS ANY KEY 
SET COLOR TO 30,14 

a 1,5 SAY ********* REPORT MENU ********* 

SET COLOR TO 20,10 
a 3,15 SAY 'ARPLANE TYPE MENU' 
a 3,60 SAY DATE () 

SET COLOR TO 30 , 14 
a 4,1 SAY • OPTIONS • 
a 5, 1 SAY • 0 F-104' 

a 6 , 1 SAY ' 1 F-1. • 



NUM 

t 
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S7 # i say • 2 

3 8,1 SAY * 3 

3 9 , 1 SAY * 4 

3 5,30 SAY ' 5 

3 6, 30 SAY * 6 

3 7,30 SAY • 7 

3 8,30 SAY » 8 

3 9,30 SAY * 9 

3 10,15 SAY * X 
3 17,1 SAY ' OPTION: 1 
STOEE ' ' TO choice 



F- 102' 

C- 130 * 

F-4 * 

F-5 * 

F-16 • 

C— 47 * 

F-18 » 

PRINT YOOH CHOICE 
EXIT TO REPOME NO 



1 

« 



WAIT TO choice 



ERASE 
DO CASE 

CAS E choice = 'O' 



SET COLOR TO 20,10 
3 14,30 SAY ' PASTS FOR P-10 4 ' 
SET COLOR TO 3 0,14 
LIST FOR arplt = * F- 1 04 1 
CASE choice = ’ 1 ' 

SET COLOR TO 20,10 
3 14,30 SAY 'PARTS OF F-1' 

SET COLOR TO 30,14 
LIST FOR arplt = • F- 1 . ' 

CASE choice = • 2 • 

SET COLOR TO 20,10 

3 14,30 SAY • PARTS OF F-102 • 

SET COLOR TO 30,14 

LIST FOR arplt = 'F-102' 

CASE choice = ' 3 • 

SET COLOR TO 20,10 
3 14,30 SAY 'PARTS OF C-130* 

SET COLOR TO 30,14 
LIST FOR arplt = 'C-130' 

CASE choice = '4 • 
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SET COLOR TO 20,10 
3 14,30 SAY • PARTS OF F-4 • 

SET COLOR TO 30,14 
LIST FOR arplt = 'F-4* 

CASE choice = *5* 

SET COLOR TO 20,10 
a 14,30 SAY * PARTS FOR F-5 • 

SET COLOR TO 30,14 
LIST FOR arplt = 'F-5 ' 

CASE choice = '6 ' 

SET COLOR TO 20,10 
3 14,30 SAY • PARTS FOR F-16' 

SET COLOR to 30,14 
LIST FOR arplt = 'F-16' 

CASE choice = * 7 * 

SET COLOR TO 20,10 
3 14,30 SAY 'PARTS FOR C-47 • 

SET COLOR TO 30,14 
LIST FOR arplt = 'C-47 • 

CASE choice = '8' 

SET COLOR TO 20,10 
3 14,30 SAY ' PARTS FOR F-18 ' 

SET COLOR TO 30,14 
LIST FOR arplt = 'F-18 • 

C AS E choice = ' 9 ' 

SET PRINT ON 
LOOP 

CASE choice = 'X' -OR. choice = 's' 

SET PRINT OFF 
RETURN 
ENDCASE 

SET ALTERNATE OFF 
STORE ' ' TO manswer 
SET COLOR TO 20,10 

ACCEPT "ENTER A Y IF YOU WISH ANOTHER LISTING, " 
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SET COLCB TO 30,14 
ERASE 

IF manswer = ’ y' .OR. nanswer = *Y' 
SET PRINT OFF 
LOOP 
ELSE 

RETURN 

ENDIF 

ENDDC 

END DO WHILE 



**************** Resuplr . prg ***************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS HARALABOS 
11-1-85 

THIS PROGRAM REPORTS THE NAMES OF THE 
SUPPLIERS 



$$$ # $$$ ## # # # :$c $$ # ## ## ## # ## •*) t ijc# 3$C ## # # £ # # # £ $$ $$$£ ## 



SET COLOR TO 20, 10 
SET TALK OFF 
DO WHILE t 
ERASE 

a) 1,12 SAY ******* SUPPLIERS REPORT ********** 

9 3,15 SAY ’ IF YOU WANT TO FREEZE THE SCREEN HIT CTRL S 1 
3 5,15 SAY ' IF YOU WANT TO RETURN TO THE REPORT MENU, * 

3 5, 16 SAY ’ HIT ESC' 

USE SUPPLIERS 

SET COLOR TO 30 , 14 

STORE ' ' TO mquery 

ACCEPT "DO YOU WANT THE REPORT PRINTED ? Y/N " TO mquery 
IF mquery = 'Y ' .OR. mquery = 'y' 

SET PRINT ON 
STORE 1 TO c 
DO WHILE c<5 

SET COLOR TO 20, 10 

3 12,2 4 SAY 'PLEASE SET PRINTER ON ' 



a ) 12, 50 SAY CHR (7) 

STORE c+ 1 TO c 
SET COLOR TO 30, 14 
ENDDO WHILE 
REPORT FORM SUPPLI 
SET PRINT OFF 
ELSE 
ERASE 

S 3,15 SAY • IF YOU WANT TO FREEZE THE SCREEN, • 

a 5,15 SAY • HIT CTRLS IF YOU WANT TO RETURN TO REPORT’ 

3) 5,16 SAY * MENU, HIT ESC • 

REPORT FORM SUPPLI 
ENDIF 

STORE * ' TO mquery 
SET COLOR TO 20,10 

ACCEPT ' DO YOU WANT TO REPEAT THE REPORT ? Y/N ' TO mquery 

SET COLOR TO 30,14 

IF mquery = 'Y* -OR. mquery = * y' 

LOOP 
ENDIF 
RETURN 
ENDDO WHILE 



************** Reusage. prg ***************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS H ARALA30S 
11-1-85 

THIS PROGRAM REPORTS THE USERS OF THE USAGE 
FILE 



******* **** * * ** ***** ************************************ 



SET COLOR TO 20,10 
SET TALK OFF 
DO WHILE t 
ERASE 

S 1,15 SAY *************** USERS REPORT *************** * 
a) 3,15 SAY ’ IF YOU WANT TO FREEZE THE SCREEN HIT CTRL S ’ 
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3 5,15 SAY • IF YOU WANT TO RETURN TO THE REPORT MENU,' 

3 5,16 SAY • HIT ESC' 

USE usage 

SET COLOR TO 30,14 
STORE ' ' TO mquery 

ACCEPT "DO YOU WANT THE REPORT PRINTED ? Y/N " TO mguery 
IF mquery = 'Y* .OR. mguery = 'y' 

SET PRINT ON 
STORE 1 TO c 
DO WHILE C< 5 

SET COLOR TO 20,10 

3 12,24 SAY 'PLEASE... SET PRINTER ON • 

a 12,50 SAY CHR (7) 

STORE c+1 TO c 
SET COLOR TO 30, 14 
ENDDC WHILE 
REPORT FORM usa 
SET PRINT CFF 
ELSE 
ERASE 

3 3, 15 SAY ' TO FREEZE THE SCREEN, HIT CTRL S ' 

3 5,15 SAY • TO RETURN TO REPORT MENU, HIT ESC ' 

7 

EEPORT FORM usa 
EN DIF 

STORE ' ' TO mguery 

SET COLOR TO 20, 10 

ACCEPT 'DO YOU WANT TO REPEAT THE REPORT ? Y/N ' TO mguery 

SET COLOR TO 30, 14 

IF mquery = 'Y' .OR. mguery = 'y' 

LOOP 
END IF 
RETURN 
END DO WHILE 
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***************** Reorder. prg ***************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS H ARA1ABOS 
11-1-85 

THIS PROGRAM REPORTS THE ORDERS OF THE ORDER 
FILE 



* ****** **** * * ** *** ** *************** *** ** ***** **** ****** * *** 



SET COLOR TO 20, 10 
SET TALK OFF 
DO WHILE t 
ERASE 

3 1,15 SAY *************** ORDERS REPORT **************** 
3 3,15 SAY • TO' FREEZE THE SCREEN HIT CTRL S ' 

3 5,15 SAY • TO RETURN TO THE REPORT I1ENU, HIT ESC • 



USE ORDERS 

SET COLOR TO 30,14 

STORE ' ' TO mquery 

ACCEPT "DO YOU WANT THE REPORT PRINTED ? Y/N » TO mquery 
IF mquery = 'Y' .OR. mquery = ' y' 

SET PRINT ON 
STORE 1 TO c 
DO WHILE c<5 

SET COLOR TO 20,10 

3 12,24 SAY 'PLEASE... SET PRINTER ON • 

3 12,50 SAY CHR (7) 

STORE c+1 TO C 
SET COLOR TO 30, 14 
ENDDC WHILE 
REPORT FORM ORD 
SET PRINT OFF 
ELSE 
ERASE 

3 3, 15 SAY • TO FREEZE THE SCREEN, HIT CTRL S ' 

3 5,15 SAY ' TO RETURN TO REPORT MENU, HIT ESC • 

7 
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REPORT FORM ORD 
EN DIF 

STORE ' ' TO mquery 

SET COLOR TO 20, 10 

ACCEPT 'DO YOU WANT TO REPEAT THE REPORT ? Y/N • TO mquery 

SET COLOR TO 30 , 14 

IF mquery = 'Y' -OR. mquery = *y* 

LOOP 
END IF 
RETURN 
ENDDO WHILE 



* ** Rearstr, prg ********** *#***#**$ 1 *##****#*** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS HARALABOS 
11-12-85 

THIS PROGRAM LISTS THE INVENTORY OF THE 
AIRPLANE STORES 



******* **** * *** ******************** *** ********************* 



SET PRINT OFF 
SET ESCAPE OFF 
SET COLOR TO 30,14 
SET TALK OFF 

SET ALTERNATE TO rearstr.txt 

SET ALTERNATE ON 

ERASE 

3 2,18 SAY "********o INVENTORY LISTING ************ 

SET COLOR TO 20 , 10 
S 2, 60 SAY DATE () 

SET COLOR TO 30,14 
USE arstores 

a 10,18 SAY ' INDEXING PLEASE BE PATIENT' 

3 16,18 SAY 'IF YOU WANT TO CANCEL. PLEASE HIT <ESCAPE> ' 
STORE t TO flag 
DO WHILE flag 
ERASE 
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STORE ' ' TO mquery 

ACCEPT '• PRINTED INVENTORY? Y/N « TO mquery 
ERASE 

IF mquery - 'Y'.OR. mquery = 'y' 

SET PRINT ON 
STORE 1 TO C 
DO WHILE C<5 

SET COLOR TO 20,10 
SET PRINT ON 

3 12,20 SAY 'SET PRINTER ON PLEASE' 
a 12,50 SAY CHR ( 7 ) 

STORE c + 1 TO C 
SET COLOR TO 30, 14 
ENDDC WHILE 
ELSE 

SET PRINT CFF 
ENDIF 

STORE t TO xf lag 



WHILE xflag 








ERASE 








SET COLOR TO 


112,140 






a 


11,15 SAY 


• TO FREEZE THE SCREEN 


DURING 


3 


12,15 SAY 


• LISTING HIT CTRL 


NUM 


_LOCK. 


3 


12,16 SAY 


• PRESS ANY KEY TO 


CONTINUE ' 


SET COLOR TO 


30 , 14 






a 


1,5 SAY ********* REPORT MENU 


****** ** 1 


SET COLOR TO 


20, 10 






a 


3, 15 SAY • 


ARPLANE TYPE MENU • 






a 


3,60 SAY DATE () 






SET COLOR TO 


30 , 14 






a 


4,1 SAY 'OPTIONS • 






a 


5,1 SAY • 


0 F - 10 4 ' 






a 


6, 1 SAY ' 


1 F— 1 . • 






a 


7,1 SAY ' 


2 F- 102 • 






a 


3,1 SAY • 


3 C-130* 
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4 



3 9,1 SAY ' 4 

a 5,30 SAY ' 5 

a 6,30 SAY ' 6 

a 7,30 SAY ' 7 

a 8,30 SAY ' 8 

3 9,30 SAY • 9 

3 10,15 SAY • X 
3 17,1 SAY ' OPTION: * 
STOEE ’ ' TO choice 



F-4 * 

F-5 • 

F-1 6 ' 

C-47 ' 

F-1 8 * 

PRINT YOOE CHOICE 
EXIT TO BEPOMENU 



« 

« 



WAIT TO choice 



ERASE 
DO CASE 

CASE choice = * 0 * 

SET COLOR TO 20,10 

3 14,30 SAY ' PARTS FOR F-10 4 • 

SET COLOR TO 30,14 

LIST FOR arplt = 'F-104' 

CASE choice = 1 1 ' 

SET COLOR TO 20,10 
3 14,30 SAY 'PARTS OF F-1' 

SET COLOR TO 30,14 
LIST FOR arplt = ' F- 1 . » 

CASE choice = '2' 



SET COLOR TO 20,10 

3 14,30 SAY » PARTS OF F-102 * 

SET COLOR TO 30,14 

LIST FOR arplt = 'F-102' 

CASE choice = '3' 

SET COLOR TO 20,10 
3 14,30 SAY 'PARTS OF C-130’ 
SET COLOR TO 30,14 
LIST FOR arplt = 'C-130' 

CASE choice = ' 4 ' 



SET COLOR TO 20,10 
a 14,30 SAY • PARTS OF F-4 ' 



US' 



SET COLOR TO 30,14 
LIST FOR arplt = 'F-4' 

CAS E choice = * 5 * 

SET COLOR TO 20,10 
3 14,30 SAY • PARTS FOR F-5 * 

SET COLOR TO 30,14 
LIST FOR arplt = ’F-5 • 

CASE choice = *6' 

SET COLOR TO 2 0,10 

a) 14,30 SAY • PARTS FOR F-16' 

SET COLOR to 30,14 

LIST FOR arplt = 'F-16' 

a) 14,30 SAY * PARTS FOR C-47 • 

SET COLOR TO 30,14 
LIST FOR arplt = 'C-47 ' 

CASE choice = *8 ' 

SET COLOR TO 20,10 
a 14,30 SAY ' PARTS FOR F-18 • 

SET COLOR TO 30,14 
LIST FOR arplt = 'F-18 • 

C AS E choice = ' 9 ' 

SET PRINT ON 
LOOP 

CASE choice = 'X* .OR. choice = 'x' 

SET PRINT OFF 
RETURN 
ENCCASE 

SET ALTERNATE OFF 
STORE ' • TO manswer 
SET COLOR TO 20,10 

ACCEPT "ENTER A Y IF YOU WISH ANOTHER LISTING, " 

SET COLCR TO 30 , 14 

ERASE 

IF manswer = 'y' .OR. manswer = 'Y' 

SET PRINT OFF 
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LOOP 



ELSE 

BETUEN 

ENDIF 

ENDDC 

END DO WHILE 

****** ********* ** Rewstr. prg **************************** 

* AUTHOB : KO NDYLOPOULOS HARALABOS 

* DATE : 11-14-85 

* PURPOSE : THIS PROGRAM LISTS THE INVENTORY OF THE 

* : WEAPON_STOR ES 

************************************ ********************* 

SET PRINT OFF 

SET ESCAPE OFF 

SET COLOR TO 30, 14 

SET TALK OFF 

SET ALTERNATE TO rewstr.txt 

SET ALTERNATE ON 

ERASE 

3) 2,18 SAY <•********<> INVENTORY LISTING •**♦*****♦*" 

SET COLOR TO 20, 10 
cD 2,60 SAY DATE () 

SET COLOR TO 30, 14 
USE ws tores 

3 10,18 SAY 'INDEXING PLEASE BE PATIENT' 

a) 16,18 SAY 'IF YOU WANT TO CANCEL. PLEASE HIT <ESCAPE> ' 
STORE t TO flag 
DO WHILE flag 
ERASE 

STORE ' ' TO mguery 

ACCEPT " PRINTED INVENTORY ? Y/N " TO mguery 
ERASE 

IF mquery = 'Y'.OR. mguery = 'y' 

SET PRINT ON 



120 



STORE 1 TO C 
DO WHILE C<5 

SET COLOR TO 20,10 
SET PRINT ON 

3 12,20 SAY 'SET PRINTER ON PLEASE' 
a 12,50 SAY CHR (7) 

STORE c+1 TO C 
SET COLOR TO 30,14 
ENDDC WHILE 
ELSE 

SET PRINT OFF 
ENDIF 

STORE t TO xflag 
DO WHILE xflag 
ERASE 

SET COLOR TO 112,140 

3 11,15 SAY • IF YOU WANT TO FREEZE THE SCREEN 
a 12,15 SAY ' DURING THE LISTINGHIT CTRL NUM_LOCK. 
a 13,16 SAY ' PRESS ANY KEY TO CONTINUE • 

SET COLOR TO 30,14 

a 1,5 SAY '******** REPORT MENU ********* 

SET COLOR TO 20,10 
a 3,15 SAY 'ARPLANE TYPE MENU' 
a 3,60 SAY DATE () 

SET COLOR TO 30 , 14 
3 4,1 SAY 'OPTIONS ' 

0 F - 1 04 ' 

1 F-1. ' 

2 F- 102 ' 

3 C- 130 ' 

4 F-4 ' 

5 F-5 ' 

6 F-16 ' 

7 C-47 ' 

8 F- 13 ' 



a 5, 1 SAY 
a 6,1 SAY 
a 7, 1 SAY 
a 8,1 SAY 
a 9,1 SAY 
a 5,30 SAY ’ 
a 6,30 SAY ' 
a 7,30 SAY ' 
a 3,30 SAY • 



« 

« 
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3 9,30 SAY • 9 PRINT YOUR CHOICE * 

3 10,15 SAY • X EXIT TO REPOMENU • 

3 17,1 SAY • OPTION: ' 

STORE ' ' TO choice 
WAIT TO choice 
ERASE 
DO CASE 

CASE choice = 'O' 

SET COLOR TO 20,10 

3 14,30 SAY • PARTS FOR F-104 • 

SET COLOR TO 30,14 

LIST FOR arplt = 'F-104' 

C ASE choice = ' 1 ' 

SET COLOR TO 20,10 
3 14,30 SAY 'PARTS OF F-1' 

SET COLOR TO 30,14 
LIST FOR arplt = • F- 1 . • 

CASE choice = ’ 2 ' 

SET COLOR TO 20,10 

3 14,30 SAY • PARTS OF F-102 ' 

SET COLOR TO 30,14 

LIST FOR arplt = 'F-102' 

CASE choice = ' 3 ' 

SET COLOR TO 20,10 
3 14,30 SAY 'PARTS OF C-130' 

SET COLOR TO 30,14 
LIST FOR arplt = 'C-130' 

C AS E choice = ' 4 ' 

SET COLOR TO 20,10 
3 14,30 SAY ' PARTS OF F-4 ' 

SET COLOR TO 30,14 
LIST FOR arplt = 'F-4' 

CASE choice = '5 ' 

SET COLOR TO 20,10 
3 14,30 SAY ' PARTS FOR F-5 ' 
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SET COLOR TO 30,14 
LIST FOR arplt = *F-5 * 

CASE choice = *6* 

SET COLOR TO 20,10 
a 14,30 SAY ' PARTS FOR F-16’ 

SET COLOR to 30,14 
LIST FOR arplt = 'F-16' 

CASE choice = 1 7 * 

SET COLOR TO 20,10 

5) 14,30 SAY ’PARTS FOR C-47 • 

SET COLOR TO 30,14 
LIST FOR arplt = ’C-47 ’ 

CASE choice = ’8 • 

SET COLOR TO 20,10 
a 14,30 SAY ' PARTS FOR F-18 ' 

SET COLOR TO 30,14 
LIST FOR arplt = 'F- 18 • 

CASE choice = * 9 * 

SET PRINT ON 
LOOP 

CASE choice = 'X' .OR. choice = ’sc* 

SET PRINT OFF 
RETURN 
ENCCASE 

SET ALTERNATE OFF 
STORE * * TO taanswer 
S ET COLOR TO 20, 10 

ACCEPT "ENTER A Y IF YOU WISH ANCTHER LISTING, » 
? "ELSE ENTER N " TO manswer 
SET COLOR TO 30,14 
ERASE 

IF manswer = 'y* .OR. manswer = *Y’ 

SET PRINT OFF 
LOOP 
ELSE 
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RETURN 



ENDIF 

ENDDO 

ENDDO WHILE 



********************** Reacstr.prg ************************ 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS HARALABOS 
11-15-85 

THIS PROGRAM LISTS THE INVENTORY OF 
THE ACCESSORIES STORES 



******* ****** ** *** ******* *********** ** ******* ************* * 



SET PRINT OFF 
SET ESCAPE OFF 
SET COL CR TO 30, 14 
SET TALK OFF 

SET ALTERNATE TO reacstr.txt 

SET ALTERNATE ON 

ERASE 

3 2,18 SAY »********o INVENTORY LISTING * ********** it 
SET COLOR TO 20, 10 
3 2,60 SAY DATE () 

SET COLOR TO 30 , 14 
USE acs tores 

3 10,18 SAY 'INDEXING PLEASE BE PATIENT' 

3 16,18 SAY 'IF YOU WANT TO CANCEL. PLEASE HIT <ESCAPE> » 
STORE t TO flag 
DO WHILE flag 
ERASE 

STORE ' ' TO mquery 

ACCEPT '* PRINTED INVENTORY ? Y/N '• TO mquery 
ERASE 

IF mquery = 'Y'.OR. mquery = 'y' 



SET PRINT ON 
STORE 1 TO C 
DO WHILE c< 5 
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SET COLOE TO 20,10 
SET PRINT ON 

a 12,20 SAY ’SET PRINTER ON PLEASE’ 
a 12,50 SAY CHE ( 7) 

STORE C+1 TO c 
SET COLOR TO 30,14 
ENDDO WHILE 
ELSE 

SET PRINT OFF 
ENDIF 

STORE t TO X flag 
DC WHILE xflag 
ERASE 



SET COLOR TO 


112 


,140 




a 11,15 SAY 


’ IF 


YOU WANT TO FREEZE 


THE SCREEN 


a 12,15 SAY 


* DORING THE LISTING HIT 


CTR N UM_L OCK . ’ 


a 12,16 SAY 


’ PRESS ANY KEY TO CONTINUE.’ 


SET COLOR TO 


30, 


14 




5) 1,5 SAY ********* REPORT MENU ********* 


SET COLOR TO 


20, 


10 




a 3,15 SAY ' 


ARPLANE TYPE MENU' 




a 3,60 SAY DATE 


0 




SET COLOR TO 


30 , 


14 




a 4,1 SAY ’OPTIONS ’ 




a 5,1 SAY ' 


0 


F-104’ 




a 6,1 SAY ' 


1 


F-1. ' 




a 7,1 SAY ’ 


2 


F- 102’ 




a 8, 1 SAY ' 


3 


C- 130’ 




a 9,1 SAY ’ 


4 


F-4 ’ 




a 5 , 30 SA Y ’ 


5 


F-5 * 




a 6,30 SAY ' 


6 


F-1 6 • 




a 7,30 SAY ’ 


7 


C-47 • 




a 8,30 SAY • 


8 


00 

1 

lu 




a 9,30 SAY ’ 


9 


PRINT YOUR CHOICE 


f 


a 10,15 SAY 


• X 


EXIT TO REPOME NU 


f 
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3 17,1 SAY ' OPTION: ' 

STORE ' • TO choice 
WAIT TO choice 
ERASE 
DO CASE 

CASE choice = *0' 

SET COLOR TO 20,10 

a) 14,30 SAY ' PARTS FOR F-104 * 

SET COLOR TO 30,14 

LIST FOR arplt = 'F-104' 

CASE choice = ' 1 ' 

SET COLOR TO 20,10 
5) 14,30 SAY 'PARTS OF F-1* 

SET COLOR TO 3 0,14 
LIST FOR arplt = ' F- 1 . ' 

CASE choice = ' 2 ' 

SET COLOR TO 20,10 

3 14,30 SAY ' PARTS OF F-102 ' 

SET COLOR TO 30,14 

LIST FOR arplt = 'F-102' 

CASE choice = '3' 

SET COLOR TO 20,10 
3 14,30 SAY 'PARTS OF C-130' 

SET COLOR TO 30,14 
LIST FOR arplt = 'C-130' 

CASE choice = »4' 

SET COLOR TO 20,10 
3 14,30 SAY ' PARTS OF F-4 ' 

SET COLOR TO 30,14 
LIST FOR arplt = 'F-4' 

CASE choice = *5 ' 

SET COLOR TO 20,10 

a) 14,30 SAY ' PARTS FOR F-5 ' 

SET COLOR TO 30,14 

LIST FOR arplt = 'F-5 ' 
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CASE choice = * 6 ' 

SET COLOR TO 20,10 

3) 14,30 SAT * PARTS FOR F-16 • 

SET COLOR to 30,14 
LIST FOR arplt = ’F-16’ 

CASE choice = *7 » 

SET COLOR TO 20,10 
3 14,30 SAT 1 PARTS FOR C-47 ' 

SET COLOR TO 30,14 
LIST FOR arplt = 'C-47 * 

CASE choice = ' 8 ' 

SET COLOR TO 20,10 
3 14,30 SAT ' PARTS FOR F-18 ' 

SET COLOR TO 30,14 
LIST FOR arplt = 'F-18 * 

CASE choice = '9 1 
SET PRINT ON 
LOOP 

CASE choice = *X* .OR. choice = *x* 

SET PRINT OFF 
RETURN 
ENDCASE 

SET ALTERNATE OFF 
STORE ' ' TO manswer 
S ET COLOR TO 20, 10 

ACCEPT "ENTER A T IF TOU NISH ANOTHER LISTING," 
? " ELSE ENTER N » TO mansver 
SET COLOR TO 30,14 
ERASE 

IF ma ns we r = ' y 1 .OR. mans wee = 1 Y ' 

SET PRINT OFF 
LOOP 
ELSE 

RETURN 

ENDIF 
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ENDDO 

ENDDO WHILE 



*** **** **** ** ** * Quemenu. prg ****************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS HARALABOS 
10-1 1-85 

THIS PROGRAM SELECTS THE REQUIRED QUERY 
OPERATION, BY USING A MENU DRIVEN CHOICE 



******* **** * * ********* ****** ****** ** ** **** ***************** 



SET ESCAPE OFF 
SELECT PRIMARY 
SET COLOR TO 20,5 
SET TALK OFF 
SET FORMAT TO SCREEN 
SET CONSOLE ON 
DO WHILE t 

CLEAR 

ERASE 

a) 1,15 SAY "****** 'AIRPLANE’ PARTS SYSTEM •*******" 
33,1 SAY • QUEMENU* 

3 3,60 SAY DATE() 

3 7,1 £A Y ' OPTIONS: ' 

3 9,1 SAY ' 0 EXIT TO OPERATING SYSTEM' 



3 


11, 


1 


SAY • 


1 LOCATION OF A SPECI 


FIC PART 


3 


13, 


1 


SAY ’ 


2 COST OF A SPECIFIC 


PART IN 


3 


14, 


17 


SAY ' 


A GIVEN DATE • 




3 


15, 


1 


SAY ' 


3 NAME OF ORDERED ON 


A GIVEN 


3 


1b, 


17 


SAY ' 


PAR T_ NU MBE R AND DATE 


t 


3 


17, 


1 


SAY ' 


4 EXIT TO MAIN MENU' 




3 


19, 


1 


SAY • 


X EXIT TO DATABASE' 




3 


21, 


1 


SAY • 


SELECT CHOICE ' 





STORE ' ' TO choice 



WAIT TO choice 
DO CASE 

CASE choice = 'O' 
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CLEAR 

QUIT 

CASE choice = *1 • 



DO quel 
USE 

CASE choice = '2* 
DO que2 



USE 

CASE choice = '3' 

DO que3 
USE 

CASE choice = *4’ 

RETURN 

USE 

CASE choice = 'X' .OR. choice 
CANCEL 
OTHERWISE 

STORE 1 TO z 
DO WHILE z<5 

t> 30,5 SAY "INVALID CHOICE, 
a) 31,5 SAY CHR (7) 

STORE z+1 TO z 
EN EDO 
ENDCASE 
END DO WHILE t 



x’ 



PLEASE TRY AGAIN « 



*********** ** ** * Quel.pcq ******************************** 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KCNDYLOPCULOS HARALABOS 

11-11-85 

THIS PROGRAM FINDS A SPECIFIC PART FROM THE 
INVENTORY 



********************************************************** 



SET ESCAPE OFF 
SET COLOR TO 30, 14 
SET TALK OFF 
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DO WHILE t 
SELECT PRIMARY 
USE parts INDEX parts 

STORE ' ' TO mpno 

ERASE 

3 4,60 SAY DATE () 

3 15,1 SAY 'ENTER PART NUMBER ' GET mpno 
3 23, 1 SAY 'ENTER A BLANK TO EXIT TO QUEMENU' 

R EAD 

SET COLOR TO 20 , 10 
3 1,56 SAY mpno 
SET COLOR TO 30 , 14 
IF $ ( mpno, 1,1)= ' ' 

RETURN 

ENDIF $ (mpno, 1,1)= ' ' 

3 1,15 SAY 'LOCATION OF THE PART WITH PART_NU MBER 
FIND Smpno 
IF # = 0 

SET COLOR TO 112,140 

3 21,1 SAY 'DOES NOT EXIST IN THE FILE • 

3 22,40 SAY C HR (7) 

SET TALK OFF 
STORE 1 TO XX 
DC WHILE xx< 3 5 

STORE xx + 1 TO xx 
ENDDO WHILE xx<70 
SET COLOR TO 30 , 1 4 
LOOP 

ENDIF # = 0 
ERASE 

3 1,15 SAY 'LOCATION OF THE PART WITH PART_NUMBER 
S ET COLOR TO 20, 10 
3 1,56 SAY m pno 
S ET COLCR TO 30, 14 
3 4,60 SAY DATE () 
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3 23,1 SAY * ENTER A BLANK TO EXIT TO QUEMENU' 



DO CASE 

CASE arstrna <> ' 

SELECT SECONDARY 

STORE * ' TO as If HO 

USE arstores INDEX arstores 



FIND Sp.pno 
3 7,1 SAY • 

3 8, 1 SAY • 

3 9,1 SAY • 

3 10,1 SAY • 
SET COLOR to 
5) 11,1 SA Y • 
3 12, 1 SAY ' 
SET COLCR TO 
3 23, 1 SAY • 
SET COLCR TO 
READ 
USE 
CLEAR 



DESCRIPTION :' + p.desc 
ARPLANE TYPE:' + arplt 
QOH : ' + STR (p.qoh, 5) 

COST : • ♦ ST R (p. c os t, 8) 

10,20 

THE PART STORE IS : '+ 

THE PART SHELF NUMBER IS : ' + 

20,10 

TO FREEZE THE SCREEN.. HIT 
30,14 



arstrna 

aslfno 



NUM LOCK 



1 



CASE wstrna <> • 

SELECT SECONDARY 
STORE » ' TO wslfno 

USE wstores INDEX wstores 
FIND &p.pno 



3 


6,1 


SAY 


•DESCRIPTION : ' 


+ 


p.desc 


3 


7,1 


SAY 


'ARPLAN_TYPE :' 


+ 


arplt 


3 


8,1 


SAY 


'QUANTITY ON HAND :' 




STR (p. qoh , 5) 


3 


9,1 


SAY 


'COST : ' 


+ 


STR ( p. cost , 8) 



SET COLCR TO 10,20 

3 10,1 SAY 'THE STORE OF THE PART IS : • wstrna 
3 11,1 SAY 'THE SHELF OF THE PART IS :'+ wslfno 
ST COLOR TO 20, 10 

3 23,1 SAY 'TO FREZE THE SCREEN.. HIT NUM_LOCK • 
SET COLCR TO 30, 14 
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READ 

CLEAR 

LOOP 



CASE juna <> • * 

SELECT SECONDARY 
STORE • • TO jslfno 

USE junstores INDEX junstores 
FIND Dp.pno 

a) 6,1 SAY 'DESCRIPTION + p. desc 

5) 7,1 SAY ' QUAN_ON_HAN D : ' + STR(p.goh,5) 

S 8,1 SAY 'COST :• + STR( p.cost, 8) 

SET COLOR TO 10,20 

S 9,1 SAY ' THE STORE OF THE PART IS :'+ juna 
a 10,1 SAY 'THE SHELF OF THE PART IS :' + jslfno 
SET COLOR TO 20,10 

a 23,1 SAY 'TO FREEZE THE SCREEN. .HIT NUM_LOCK 

SET COLOR TO 30 , 14 

R EAD 

CLEAR 

LOOP 

CASE acstrna <> ' ' 

SELECT SECONDARY 
STORE ’ • TO acslfno 

USE acstores INDEX acs tores 
FIND Sp.pno 
a 6,1 SAY 'DESCRIPTION 
3 7,1 SAY 'ARPL_TY PE 
a 8,1 SAY ' QUAN_ON_HAN D 
a 9, 1 SAY 'COST 
SET COLOR TO 10 ,20 
a 10,1 SAY 'THE PART STORE IS 
a 11,1 SAY 'THE PART SHELF IS 
S ET COLOR TO 20, 10 

a 23,1 SAY ' TO FREEZE THE SCREEN HIT NUfl_LOCK» 
S ET COLOR TO 30, 14 



p. desc 
p. arplt 
ST R (p. qoh, 5) 
STR (p. cost, 8) 

:' + acstrna 
: ' + acslfno 
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READ 
CLEAR 
L COP 

OTHER WISE 

3 18,10 SAY 'THIS IS NOT PART OF THE INVENTORY ' 
CLEAR 
LOOP 
ENDCASE 
ENDDO WHILE t 



*************** Que2 . prg ********************************* 



* AUTHOR 

* DATE 

* PURPOSE 

* 



KONDYLOPOULOS HARALABOS 

11-18-85 

THIS PROGRAM FINDS THE QUANTITY AND THE CD ST 
OF A SPECIFIC PART IN A SPECIFIC TIME. 



******* ****** ** * ******************** ** ** ** ************** ** 



SET COLOR TO 30 , 14 
SET ESCAPE OFF 
SET TALK OFF 
ERASE 

SELECT PRIMARY 



USE orders INDEX pno 
STORE t TO flag 
* Create a continue loop 
DO WHILE t 

STORE * * TO answer 

STORE ' * TO mpno 

3 15,1 SAY ’ENTER PART NUMBER • GET mpno 
* If it is selection of new part for the same date 
IF flag 

STORE • • TD mdate 

3 4, 60 SAY DATE () 

3 17,1 SAY 'ENTER THE DATE' GET mdate PICTURE *99-99-99' 

ENDI F 

READ 
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* Return to quemenu for a blank entry 
IF $ (mpno, 1,1)= • 1 

RETURN 

ENDIF 

ERASE 

FIND Smpno 
IF # = 0 
DO error 
ENDIF 

STORE 0 TO count 
STORE 0 TO temp 

* Look up all the file for a specific part# and date 
DO WHILE pno = mpno .AND. .NOT. EOF 

IF date = mdata 
ERASE 

3 6,1 SAY CHR (7) 

SET COLOR TO 20 , 10 

3 7,1 SAY ’QUANTITY COST EXTEE_COST' 

SET COLOR TO 30 , 1 4 
3 10+count,3 SAY +qnt 
3 10+count,17 SAY *cost 
STORE cost*qnt TO excost 
3 10+count,36 SAY +excost 
STORE excost+temp TO temp 
STORE count* 1 TO count 
ENDIF 
SKIP 

ENDDO WHILE 

3 15,15 SAY 'THE TOTAL COST OF THIS DATE, IS :* 

SET COLOR TO 20,10 
3 15,49 SAY + temp 
STORE 1 TO xx 
DO WHILE xx<50 

STORE xx + 1 TO xx 
ENDDC 
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ERAS E 

SET COLOR TO 30,14 

DO WHILE .NOT. ( (answer) = ' N' .OR. (answer) = *C’) 
STORE * C* TO answer 
SET COLOR TO 112,140 
3) 22, 10 SAY * ENTER AN ACTION 
5) 22, 57 GET answer 

a 23,10 SAY »C = CONTINOE WITH NEXT P AR T_NU MB ER • 
S 23,11 SAY 1 N TO EXIT TO QUEMENU • 

SET COLCR TO 30,14 
READ 

IF .NOT. ( (answer) = * N f .OR. (answer) = *C* ) 

DO error 

STORE * ' TO answer 
ENDIF 

ENDDC WHILE 
DO CASE 

CASE (answer) = *C* 

* Ask a new part number in the same date 
STORE f TO flag 

LOOP 

CASE (answer) = *N' 

* Ask a new date for the same part_number 
RETURN 

ENDCASE 
ENDDO WHILE 



**************** Que3 . prg ******************************* 



* AUTHOR 

* DATE 

* PURPOSE 

* 

* 



KONDYLOPOULOS HARALAB0S 

11-18-85 

THIS PROGRAM FINDS THE NAME OF THE 
PURCHASING AGENT, AND THE TIME OF THE ORDER 
FOR A SPECIFIC PART. 



****** ******* ******************************************** 



SET COLOR TO 30, 14 
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S El ESCAPE OFF 
SET TALK OFF 
ERASE 

SELECT PRIM ARY 
USE orders INDEX pno 
STORE t TO flag 
* Create a continue loop 
DO WHILE t 

STORE * * TO answer 

STORE ' • TO m pno 

a) 15,1 SAY ’ENTER PART NUMBER ’ GET mpno 

* If it is selection of new part for the same date 
IF flag 

STORE • • TO mdate 

5) 4,60 SAY DATE () 

a) 17,1 SAY ’ENTER THE DATE' GET mdate PICTURE ’99-99-99’ 

ENDIF 

READ 

* Return to quemenu for a blank entry 
IF $ (mpno, 1,1)= ' ’ 

RETURN 
ENDIF 
ERAS E 

FIND Smpno 
IF # = 0 
DO error 
ENDIF 

STORE 0 TO count 
STORE 0 TO temp 

* Look up all the file for a specific part# and date 
IF date = mdate -AND. pno = mpno 

ERASE 

a) 6 , 1 SAY CHE (7) 

SET COLOR TO 20,10 

a) 7,1 SAY ' PA_NU MR - ORDER ED_NAME - EXTER_COST' 
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SET COLOR TO 30,14 
3 10+count,3 SAY +pno 
3 10+count,17 SAY +ordna 
STORE cost*gnt TO excost 
a 10+count,36 SAY +excost 

ENDIF 

3 15,15 SAY ’THE ORDERED NAME IS 
SET COLOR TO 20,10 
3 15,37 SAY +ordna 
STORE 1 TO xx 
DO WHILE xx< 50 

STORE xx+1 TO xx 
ENDDO 
ERASE 

SET COLOR TO 30,14 

DO WHILE .NOT. ( (answer) = ’N' .OR. (answer) = ’C’) 
STORE • C’ TO answer 
SET COLOR TO 112,140 
a 22,10 SAY • ENTER AN ACTION 

a 22,57 GET answer 

a 23,10 SAY ’C = CONTINUE WITH NEXT P AR‘T_ NUMBER • 

a 23,11 SAY * N = EXIT TO QUEMENU ’ 

SET COLOR TO 30,14 
R EAD 

IF .NOT. ( (answer) = • N’ .OR. (answer) = ’C’ ) 

DO error 

STORE ’ • TO answer 
ENDIF 
ENDDO 
DO CASE 

CASE (answer) = •C' 

* Ask a new part_number in the same date 
STORE f TO flag 
LOOP 

CASE (answer) = 'N' 
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* Ask a new order_num ber for the different date 
RETURN 
ENDCASE 
ENDDO WHILE t 



* ****** **** * afc * Error. prg ********************************* 

* AUTHOR ; KONDYLOPOULOS HARALABOS 

* DATE : 11-11-85 

* PURPOSE : THIS ROUTINE FLASHES A BAD INPUT MESSAGE 
******* **** ************************* ** **** ***** ******** *** 



SET COLOR TO errcolor , berrcolor 
STORE 1 TO xx 
DO WHILE xx <8 



a 


20, 50 


SAY 


•BAD INPUT • 


a 


21 , 50 


SAY 


•CHECK YOUR INPUT 


5) 


22, 50 


SAY 


•AND TRY AGAIN • 


3 


22, 65 


SAY 


C HR (7) 



STORE xx + 1 TO xx 
ENDDO WHILE 
ERASE 

SET COLOR TO ms color , cco lor 
RETURN 
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APPENDIX B 



DEFINITIONS OF THE DATABASE [REF 2] 



Binding is the process of fixing data or processing all 
relationships which are used to generate informations that 
must be bound. Binding frequently takes place years before 
a new database system becomes operational. 

Computation on a database denotes a section of an applica- 
tion on the database as: 

a. Building of the data collection that includes data 
collection, data organization, and data storage. 

b. Updating of a database that includes the addition of 
new data, the changing of the values, and the deletion 
of data. 

c. Data retrieval that can consist of the fetching of a 
specific element in order to get a stored value or fact. 

To fetch a specific data record, the database uses a 
search argument, which is matched with a key in the 
database records. 

d. Reduction of large quantity of data to usable form we 
have when the volume summarization of data presented in 
manageable and usable form. Some of the common used 
techniques are: statistical summaries and annual business 
operating statements. 

Database is a shared collection of inter - related data de- 
signed to meet the varied information needs of an organization. 
Database Management System (DBMS) is a software system that 
performs (carries out) all user's .requests for data. User's 
requests may be an update or a retrieval . 
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Database system is a system to record and maintain informa- 



tion that is significant to organization in the decision- 
making processes. 

Files is a term in the computer terminology where data is 
stored more-or-less permanently in a computer and the pro- 
grams that manipulate it. 

Flowcharts is a way of describing complex processes and 
data flow by using a graphic description. There are three 
types of activities: control flow, control-data flow, and 
data flow. 

a. Control flow is the sequence of instructions by process- 
ing unit . 

b. Control-data flow is the flow of data elements that 
effect the control flow of the computation. 

c. Data flow is the typical flow between files and input 
or output devices . 

Input -Output consists of internal and external transfers of 
data. Internal when reading or writing files where data is 
transferred between storage unit of the computer and external 
when reading input or writing output. Database is concerned 
with data which remains within the scope of the system. 
Processes are the basic computational units managed by the 
operating system. The scheduling and performance of process, 
and hence of the computations that were specified determine 
the performance of database systems. 

Record is a collection of similar records kept on a secondary 
computer storage device. 
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Size is the quantity of data to be handled, and depends on 
the hardware and operational constraints which may apply 
in a given environment. 



> 
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APPENDIX C 



DBASE II COMMAND SUMMARY [REF. 17] 



"> ? — displays an expression, variable, or field. 

> ?? — displays an expression list without a preceding 

line feed. 

> @ — displays user formatted data on screen or printer. 

> ACCEPT — allows input of character strings into memory 

variables. 

> APEND — append information from another dBASE II database 

or files in Delimited or System Data format. 

> BROWSE — full screen window viewing and editing of 

database. 

> CANCEL — cancels command file execution. 

> CHANGE -- Non-Full-Screen edit of fields of database. 

> CLEAR — closes databases in use and releases current 

memory variables. 

> CONTINUES — continue the searching action of a LOCATE 

command . 

> COPY — creates a copy of an existing database. 

> COUNT — counts the number of records in file which 

meet some criteria. 

> CREATE — creates new database. 

> DELETE — deletes a file or marks records for deletion. 

> DISPLAY — display files, database records or 

structure, memory variables, or status. 

> DO — executes command files or structured loops in same. 

> EDIT — initiates edit of records in a database. 

> EJECT — ejects a page on the printer. 

> ELSE — alternate path of command execution within IF. 

> ENDCASE — terminates a CASE command. 

> ENDDO — terminates DO WHILE command. 

> ENDIF — terminates an IF command. 

> ENDTEXT — terminates a TEXT command. 

> ERASE — clears the screen. 

> FIND — positions to record corresponding to key in 

index file. 

> GO or GOTO — positions to specific record or place 

in file. 

> HELP — access help file overview or specific help 

file entry. 

> IF — allows conditional execution of commands. 

> INDEX — creates an index file. 

> INPUT — allows input of expressions into memory 

variables . 

> INSERT — insert new record in database. 
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> JOIN — joins output of two databases. 

> LIST — lists files, database records or structure, 

memory variables, and status. 

> LOCATE — find a record that fits a condition. 

> LOOP — ski js to beginning of DO WHILE command. 

> MODIFY — create and/or edit command file or modify 

structure of existing database. 

> NOTE or * — allows insertion of comments in command 

file. 

> PACK — erases records marked for deletion. 

> QUIT — exits dBASE and returns to operating system. 

> READ — initiates full-screen editing or formatted 

screen by accepting input into variables 
accessed with a GET. 

> RECALL — erases mark for deletion. 

> REINDEX — update existing index file. 

> RELEASE — eliminates unwanted memory variables and 

releases memory space. 

> REMARK — permits display of any characters. 

> RENAME — rename a file. 

> REPLACE — change information in record(s) or entire 

database field by field. 

> REPORT — format and display a report of information. 

> RESET — reset operating system after placing new disk 

in drive. 

> RESTORE — retrieves memory variables stored in MEM file. 

> RETURN — ends a command file. 

> SAVE — copies current memory variables to disk file. 

> SELECT — switches between USE files in PRIMARY and 

SECONDARY areas. 

> SET — sets dBASE control parameters. 

> SKIP — position forwards or backward in database. 

> SORT — write copy of database sorted on one of the 

data fields. 

> STORE — creates memory variables. 

> SUM — compute and display the sum of database 

field ( s ) . 

> TEXT — allows output of block of text from a 

command file. 

> TOTAL — creates summary copy of database 

combining information from specified 
fields of records meeting some 
criteria. 

> UPDATE — allows batch updates of a database. 

> USE — specifies database to USE until next 

USE command is issued. 

> WAIT — suspends command file processing until 

user input received. 
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APPENDIX D 



DBASE II FUNCTIONS [REF. 17] 



> @ -- @ ( <cstringl > , <cstring2>) — AT function yields an 
integer whose value is the character number in 
<cstring2> which begins a substring identical to 
<cstringl>. 

> * — deleted record function evaluates as a logical TRUE 

if current record has been marked for deletion. 

> # -- record number function reports value of integer 

corresponding to current record number. 

> ! — !(<cstring>) — uppercase function yields <cstring> 

in uppercase characters. 

> $ — $(<cstring>, <start>, <length>) — substring function 

forms a character string from the specified part of 
another another string. 

> CHR — CHR(<numeric exp> ) — yields the ASCII character 

equivalent of the Cnumeric exp>. e.g., ? CHR (7) 
rings the bell. 

> DATE() — returns the character string that contains the 

System Date in format xx/xx/xx. 

> EOF — end-of-file function evaluates as True if an 

attempt has been made to go past the last record 
in a database. 

> FILE — FILE(<file>) — existence function evaluates as a 

logical False if it does not. 

< INT -- INT ( Cnumeric exp>) -- integer function truncates 

everything to right of decimal to form an integer. 

< LEN — LEN ( <cstring> ) — length function returns the 

number of characters in <cstring>. ? LEN('HELLO') 

< RANK -- RANK ( <cstring> ) -- returns the (ASCII numeric) 

value of the leftmost character of <cstring>. 

< STR -- STR ( Cnumeric exp>, <width> [ , <decima ls> ] ) — 

string function converts a numeric expression 
into a character string. 
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< TEST 

< TRIM 

< TYPE 

< VAL - 



— TEST(<exp>) — used with ? and IF, test function 
determines if <exp> is valid and parsable. A valid 
<exp> returns a value # 0 ; an invalid <exp> a value 
of 0. 

— TRIM (<cstring>) - trim function removes trailing 
blanks from <c-string>. ? TRIM ( FIRST ) + ' •+ LAST. 

— TYPE(<exp>) — function yields a one-character 

string that contains a 'C', 'N' , 'L', or 'U' if the 

<exp. is of type character. Numeric, Logical, or 
Undefined. 

VAL (<cstring>) — value function converts a character 
string made of numerals into a numeric expression 
[Ref. 17]. 
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APPENDIX E 



DBASE II LIMITATIONS AND CONSTRAINTS [REF. 17] 



number 


fields/record 


3 2 max 


number 


chars/record 


1000 max 


number 


records /database 


65535 max 


number 


char s/cstring 


254 max 


accuracy numeric fields 


10 digits 


largest number 


1.8 x 10**63 approx 


number 


current memyars 


64 max 


number 


chars/command line 


254 max 


number 


<exp>s in SUM command 


5 max 


number 


chars in REPORT header 


254 max 


number 


fields in REPORT 


24 max 


number 


chars in index key 


99 max 


number 


of pending GETS 


64 max 


number 


of files open at one tim 


16 max 


length 


of .PRG file 


unlimited 
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